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Foreword 


When the first huge computers were built, games were not what 
the owners had in mind. Millions of dollars were invested in 
every machine. Computer time was valuable, and not to be 
wasted. 

As computers shrank in size and increased in power, how- 
ever, it was inevitable that weary programmers would begin ex- 
ploring and programming, devising the forerunners of Pac-Man 
and Donkey Kong. Today, a vast number of the world’s computers 
are built for one purpose only — to play games with whoever puts 
in a quarter. 

Your Atari is not a dedicated game machine — it is much more 
versatile than that. But the Atari’s designers knew that one of the 
most common uses of the machine would be play. Like the arcade 
machines, the Atari can give you experiences and entertainment 
that you could never find anywhere except in the worlds the com- 
puter can create. 

This book serves a double purpose. First, it provides you with 
a variety of games which you merely type into the computer, save 
on tape or diskette, and then play again and again, as often as you 
like. Second, because the program is printed you can see exactl 
how the game’s creator brought off the effects you like. It will be 
fairly easy for you to learn techniques that you can use in your 
own programs. 

In fact, to make this book as useful as possible, many of the 
games are accompanied by explanations of how the program 
works. Chapters at the beginning and end of the book will also 
help you learn how to write your own games. 

Much of the value of this book comes from its variety: 

Besides being fun, MathMan and Word Hunt, for instance, 
are educational; Ski! can improve eye-hand coordination. 

There are games that are simple and slow enough for small 
children. There are also games as fast and challenging as any- 
thing in the arcades. 

No matter what level of programming skill you have reached, 
there will be programs for which you can learn techniques, rang- 


ing from fairly simple BASIC games to sophisticated all-machine 
language games like Shoot and Chiseler. 

Even if you are a subscriber to COMPUTE! Magazine, 
there are things here you haven't seen before. One-third of 
the games in this book have never been published before and 
some of the others have been since refined and improved. 

Some of the games here were originally programmed on 
other computers, and were “translated” for the Atari. Computer 
translation often requires as much creativity as the original pro- 
gram, since the requirements and features of computers can be 
very different. 

Some games require more than simple translation: they re- 
quire new coding in order to take advantage of the capabilities of 
the Atari. This is the case with three games in this book. Charles 
Brannon, of our editorial staff, has rewritten Tag, Ski! and Thun- 
derbird for the Atari. In addition, E.H. Foerster has made impor- 
tant improvements to Brannon’s version of Skil. 

Since the first printing of this book, Atari has introduced 
a new line of computers called the XL series. They’ve become 
very popular. We’ve ensured that all the games, save one, will 
run on any of the XL machines. That game, Ski, would have 
to be almost completely rewritten to run on an XL model com- 
puter. You can, however, play Ski on your 600 XL or 800 XL if 
you have the Atari BASIC cartridge. Simply plug it into the 
cartridge slot, type the program in, and play. Since the car- 
tridge disables the built-in BASIC of the XL model computers, 
Ski will work. 

All the rest of the games in this book can be typed in 
and played as is on an Atari XL computer. 
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Part One 


Why the Atari 
Is a Great 
Game Machine 


Orson Scott Card 


When you push the cartridge into the slot, unbelievable 
things happen. Basketball players dribble and pass and shoot 
and steal. Spaceships go through complex maneuvers and 
blast asteroids out of the sky. Robots chase you through a 
maze. A little man climbs a ladder and puts out fires. Your 
computer has turned your TV screen into a universe of daz- 
zling worlds, and it seems like whenever you aren't playing, 
your children or your parents are. 

But you bought a computer, not just a game machine. 
And you bought an Atari, not just a computer. Which means 
that all the techniques that the wizard programmers used to 
create the games you like to play are all within your reach. 

It probably won't surprise you that game designers like 
the Atari, too. That’s because the computer was designed 
with many of the features that help programmers make their 
games run smoothly, with lots of graphic effects, and without 
a lot of extra, unnecessary programming steps. 


The Atari Tool Kit 


At their simplest level, computers consist of two basic parts, 
the central processing unit that performs operations, and the 
memory that holds all the instructions and data and results of 
those operations. The power of the computer is that it’s very, 
very fast. The weakness is that it can still do only one thing 
at a time. 

But there are ways of getting around that. The Atari com- 
puter saves a lot of time by actually having two processors: 
the 6502 handles the main business of whatever program is 
running, and the other, the ANTIC chip, handles what's go- 
ing on on the TV screen. Once the main processor has told 
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the ANTIC what to do, it can pretty well forget the screen 
and let the ANTIC go on telling the TV, every sixtieth of a 
second, what to put on the screen. 

The Atari also has a sound system with four voices that 
plays through your TV speakers or your stereo system. 
There's a little speaker built into your console, too, that can 
be made to beep and click. And if you have a cassette or disk 
drive for permanent memory storage, the Atari has several 
ways of storing and reading information on both devices, 
some fast and complicated, some slow and simple. 

That’s the machinery, the hardware. Many of the most 
powerful features of your Atari as a game machine, however, 
are hidden in the computer’s operating system and in its 
BASIC language. It isn’t just the things that your computer 
can do — it’s also the way you can get the computer to do 
them. It isn’t quite as easy as wishing — this is the real 
world, after all. But with planning and a little study, you'll 
find that all those dazzling tricks the wizard programmers use 
aren't so miraculous after all. Or maybe that’s the wrong way 
of looking at it. Maybe the tricks are miraculous — but the 
Atari makes it relatively easy for you to become a wizard. 


Cutting Up the Memory Chain 


To understand how these features work, it’s important to 
understand how the Atari's memory is set up. Perhaps it’s 
easiest to visualize computer memory as a long chain. The 
first link in the chain is memory location zero; the highest- 
numbered link your computer can read is location 65535. 

Each link, or location, can hold one item of information. 
Your computer knows how to go from location to location and 
either read the item stored there or store a new item there. 
Whenever it stores something, it erases whatever was stored 
there before. However, when it reads something, the informa- 
tion at that location is unharmed — it can be read again and 
again without change. 

What is stored at each location? The same thing every 
time: a number from 0 to 255. That’s all — a long chain of 
memory locations, each holding a number from 0 to 255. 

What matters, then, is what the computer does with that 
information. 

It can interpret each number three ways: 

Sometimes the computer reads those numbers as instruc- 
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tions, machine language commands that tell the 6502 pro- 
cessor what operations to perform. 

Sometimes the computer reads the numbers as numbers, 
positive integers from 0 to 255 — or as positive and negative 
integers from -128 to +127. 

And sometimes the computer reads the numbers as ad- 
dresses — numbers which tell the computer where in memory 
another instruction or item of information is to be found. 

How a number is interpreted depends on what you have 
told the computer to do with that information. 


Screen Memory 


Of great importance to arcade-type games is a long section of 
the memory chain that is used for screen memory. The 
Operating System (OS) tells ANTIC to look for screen 
memory starting at a certain address in memory. Then AN- 
TIC interprets that screen memory according to certain 
predetermined patterns, called graphic modes. 

Depending on the graphic mode your program is in, AN- 
TIC will read screen memory as instructions to turn on or off 
little squares of color on the TV screen, or as instructions to 
display a certain character on the screen. When you type 
words on your computer, ANTIC doesn’t care what you're 
saying. It only knows that at certain places in screen memory, 
the number stored in that location is the code for a certain 
letter. 

So when alien invaders march back and forth across your 
screen, your 6502 is really just storing numbers in different 
memory locations, and ANTIC will make different patterns of 
color in different places on the screen. 

Machine language is very fast when compared to 
BASIC. It can move large groups of numbers from one place 
to another in screen memory so quickly that it causes objects 
to move smoothly on the screen. 

However, many computer users haven't yet learned how 
to use machine language. Instead, most of us rely on BASIC, 

a language a little closer to English, which, while a program is 
RUNning, translates our commands so the 6502 can under- 
stand them. The trouble is, this translation takes time. Our 
BASIC program often can’t move numbers through screen 
memory quickly enough to make smooth movements on the 
screen. 


Part One 


Player-Missile Graphics 


Here is where your Atari really starts to shine. ANTIC doesn't 
only look for screen memory — it can also look for another 
section of memory that holds up to five player shapes (or 
four player shapes and four narrower missile shapes), which 
can be moved across the screen, independent of what the rest 
of the screen memory is doing. 


These player shapes can move much more quickly, and 
with a lot less calculation, than shapes in regular screen 
memory. They also are displayed on the screen without affect- 
ing the screen memory that is supposed to be displayed in 
the same place. This is why in “Tank Duel” you will see the 
tanks move right over trees — when the tank passes, the tree 
is still there, undisturbed. 


You can also tell the computer which overlapping objects 
should have priority — does your airplane shape go in front 
of the cloud, or behind it, when they occupy the same place 
on the screen? 


Your computer also notices what players or missiles are 
overlapping on the screen. That's how in Asteroids the game 
program notices whether you have crashed into a big rock or 
not, or whether another ship's missile has collided with your 
ship. If it doesn’t matter, the program can ignore the collision; 
if it does matter, your program can go into its special effects 
routine and make an explosion. 


The important thing to remember is that all of this activ- 
ity is controlled by telling the 6502 what numbers to store in 
what locations. The Atari is designed so that you have almost 
complete control over all the numbers that matter. If you are 
working in machine language, you control all those numbers 
directly, but even in BASIC you can store numbers by using 
the POKE command, or read numbers by using the PEEK 
function. Some ways of moving the numbers around are fast- 
er than others. In these games, you'll see as many different 
techniques as there are programmers. But in the end, all the 
programmers are just putting numbers somewhere in the 
chain. 


The Atari’s power derives from the way it uses those 
numbers. 
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Changing Colors 


Do you want to change the color of some object on the 
screen? You have 128 different combinations of color and 
brightness available to you — and to change a color, you 
merely have to POKE one number into one memory location. 
You can change the background, for instance, with the com- 
mand POKE 712,66. 

How many different colors can you display at once? Using 
the simplest graphics modes, you can show four colors at the 
same time. Add the five possible players, each with its own 
color, and there can be nine colors showing, each controlled 
by a single POKE. And the advanced graphics modes — 9, 
10, and 11 — allow even more. 


Sound 

Your computer has four voices through the TV speaker. Four 

notes can sound at the same time — or two can be used 

together to make a combined sound. From BASIC, you can 

choose eight different distortion levels, 16 different loudness 

settings, and a wide range of pitches. Let’s explore a bit. 
Here’s the sound of the sea: 


16 FOR I=4 TO 14 STEP 2:SOUND 6,76-I 
58,1:FOR X=8 TO 15@*RNDC1):2NEXT X 
:NEXT I 

26 FOR I=14 TO 4 STEP —-1:SOUND @, 69, 
8,1:FOR X=@ TO RND(1)x*8@8@:NEXT X: 
NEXT I:GOTO 198 

36 FOR [=12 TO 4 STEP —-1:SOUND 6,49, 
8,1:FOR X=@ TO RND(1)*88@:NEXT X: 
NEXT I:GOTO 296 


And here's the tick-tock of a clock: 


S FOR X=9 TO 1 

1G SOUND @,59+19%*X,18,8:SOUND 9,9,9, 
g 

26 FOR I= TO 15@:NEXT I 

38 NEXT X:GOTO S 


Program 1-1 is a simple program that will allow you to 
create sounds and modify the pitch and distortion while the 
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sound is going on. If you have two pairs of paddles, you can 
work with two sounds at once. 

Paddles One and Two control the first voice. Paddle One 
sets the pitch of the sound. Hold down the button, and the 
voice goes on and off in a staccato pattern. 

Paddle Two controls the distortion level. Hold down the 
button, and the screen will report, over and over, what the 
number of the pitch is and what the number of the distortion 
is for the sound you're hearing. 

If you find a sound you like, push the button, get the 
numbers, write them down, and then use them in a SOUND 
statement in a program. The SOUND statement looks like 
this: 


SOUND 0,76,10,10 


The first number is the voice number. The four voices are 0, 
1, 2, and 3. The second number is the pitch number, ranging 
from 0 to 255. The third number is the distortion, which is 
always an even number from 0 to 14. The fourth number is 
the volume, any number from 0 (silent) to 15 (loud). 

You can reproduce the sound you want by putting the 
pitch and distortion number shown on the screen in the right 
place in a SOUND statement in your own program. 

Machine language programmers can even make their 
music or sound effects take place during interrupt time, when 
the TV screen isn't being actively displayed — but that’s much 
too fast for BASIC to take advantage of. 


Program 1-1. Sound 


18 DIM PITCH(3) ,DISTORT(3),3¢(3):?7 " 
{CLEAR}" 

26 ? "How many voices? (1, 2, 3, or 
4)":OQPEN #1,4,90,"K:" 

308 GET #1,A:1F Ac49 OR A>S2 THEN 39 

49 CLOSE #1:PRINT CHR#(A) :A=A-49 

56 ? “Gaddles or S)oysticks":OPEN #1, 
4,9, "ks" 

6@ GET #1,N:1IF N<>74 AND N<?+88 AND N 
£>196 AND Ne<?rii2 THEN 66 

76 PRINT CHR#(N):CLOSE #1:0N N=74 OR 

N=1846 GOTO 2896 
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88 REM JOYSTICK-ONLY USERS MAY DELET 
E LINES 58 TO 198 


186 


246 


278 


FOR I=@ TO A:PITCH(1)=27+PEEK (42 
4+1*2):DISTORT(1)=2* INT (PEEK (4625 
+1%*2)/29):NEXT I 
FOR I=@ TO A:SOUND I,PITCH(I),DI 
STORT(1),8:NEXT I 
FOR I=@ TO A:ON NOT PTRIG(I*2) 
GOSUB 159:0N NOT PTRIG(I*2+1) G 
OSUB 149:NEXT I 
GOTO 186 
POSITION 1,I1+1:? "Voice "s3I,"pit 
ch "sPITCH(I)3;"€3 SPACES}distort 
ion "s3DISTORT(I);" “:RETURN 
SOUND 1,9,9,9:RETURN 
REM PADDLE-ONLY USERS MAY DELETE 
LINE 5@ TO 78 AND 268 TO 296 
FOR I=@ TO A:PITCH(1)=19@:DISTOR 
T(I)=19:SOUND I,PITCH(1I),DISTORT 
(1),8:NEXT I 
ICL) =3(1)-18:1F J¢(1)<@ OR JCI) 34 
THEN J(1)=9 
FOR I=@ TO A:dJ(I)=STICK(I)D SIF JC 
I)=7 THEN J(1)=12 
J(I)=3(1)-1G:1F J¢(1)<@ OR JCI) 34 
THEN J(1)=6 
ON J(1I) GOSUB 249,259,269, 27:0N 
NOT STRIG(I) GOSUB 29@:NEXT I: 
ON PEEK (53279)=6 GOSUB 2896:GOTO 
219 
DISTORT (1I)=DISTORT(1)—2:DISTORT ¢ 
I) =DISTORT(1)+14k(DISTORT(1)<@): 
SOUND I,PITCH(I),DISTORT(1I),8:RE 
TURN 
DISTORT (1)=DISTORT(1)+2:DISTORT ( 
I) =DISTORT(1)-14*(DISTORT(I) 314) 
:SOUND I,PITCH(I),DISTORT(I),8:R 
ETURN 
PITCH(1)=PITCH(1)+i:PITCH(1)=PIT 
CH(1)-2546* (PITCH(I) >255):SOUND I 
»PITCH(1),DISTORT(1),8:RETURN 
PITCH(1I1)=PITCH(1I)—-1:PITCH(1I)=PIT 
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CH(I)+256*(PITCH(1)<8):SOUND I,P 
ITCH(I),DISTORT(1I),8: RETURN 

288 POSITION 2,1:FOR I= TO A:? "Voi 
ce ";1I13"{3 SPACES}Pitch ";PITCH( 
I)3;"{3 SPACES}Distortion ";DISTO 
RT(I)3" “NEXT I:RETURN 

298 SOUND I,PITCH(I),DISTORT(1),8:S0 
UND 1,4,%,@:RETURN 


Machine Language Subroutines 


One of the tricks the Atari can play is changing the meaning 
of numbers in the middle of a program. For instance, several 
of the programs in this book will have statements that look 
like this: 


A$ ="hhh*VLd” 
And then, later, a statement that looks like this: 
X =USR(ADR(A$)) 


What the first statement does is store a group of numbers 
as a string of characters. Ordinarily, the computer would inter- 
pret those numbers from then on as the letters or symbols 
shown. 

But the second statement tells the computer to go to the 
address where those letters are stored — ADR(A$) — and in- 
terpret those numbers as machine language instructions — 
X=USR. What looked like a string of characters is really a 
subroutine for loading data from a disk file, very, very 
quickly. 

There are other ways to get short machine language 
routines into game programs. What is important is that it 
allows programmers to write most of a program in BASIC, the 
language most programmers know best — and only write 
machine language in the sections of the program that really 
require speed. 

Some of the programs in this book are entirely in 
machine language. You can tell which ones they are — they’re 
the ones that consist almost entirely of lines like this: 


DATA 15,233,0,55,99,5,23,120,120,0,0,0,40 


Long, slow typing — but very fast games. 
Most programs, though, are in BASIC, and even without 
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a lot of training, you can follow most of what’s going on. 
And because of those embedded machine language 
subroutines, most of those BASIC games play just as fast as 
you could ever want. 


Additional Features 


There are other features we've hardly touched on: 

e Six different ways of displaying characters, which you 
can define into many different shapes and colors, ranging 
from the simple small white letters and numbers that the 
machine usually uses to the multicolored characters in games 
like “Tank Duel.” As far as the computer knows, it’s just 
displaying letters on the screen — but you see trees and 
buildings. 

¢ Full joystick and paddle control, which you can use 
with one-word functions like STICK(0), PADDLE(5), or, for 
the buttons, STRIG(3) and PTRIG(7). The STICK functions 
give you one of eight directions; the PADDLE functions give 
you a number from 0 to 255. Notice how those are used in 
the sound demonstration program you used a minute ago. 

e A sound track on the cassette, alongside the data track, 
that allows you to record music or speech and play it back, 
all controlled and timed from within a program. Several ex- 
cellent games and educational programs use this feature. (Un- 
fortunately, it’s one of the few things we just can’t do in a 
book of printed programs like this.) 

e Three function buttons, OPTION, SELECT, and START, 
can be used however you wish in a program, simply by see- 
ing what’s in memory location 53279, like this: 


FOR I=0 TO 10000:A =PEEK(53279):PRINT A:NEXT I 


If you type in that line and then press those three buttons, 
one at a time or in combination, you will see what numbers 
the computer automatically stores, ready for you to read 
within a program. 

¢ Scrolling, both up and down and side to side, so that 
the television screen can seem to be a window looking onto a 
much larger playfield. That’s the technique used in “Ski!/” 
which allows you to ski down a hill much larger than the TV 
screen could ever show all at once. 

All of these features were carefully built into the Atari — 
this computer was designed to be a powerful game machine. 
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But much of its value comes from the simple fact that it 
is a computer. Playing word games, doing mathematical calcu- 
lations, designing mazes, remembering intricate patterns — 
these are all things that computers do very well. They were 
originally developed to do vast amounts of tedious work very 
quickly. 

It’s just a bonus that they can be such a lot of fun. 
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Writing Your 
First Game 


Richard Mansfield 


Richard Mansfield, Senior Editor of COMPUTE! Publications, ex- 
plains the details of a simple game. A beginning programmer can 
learn a great deal studying this short program. 


If you are tempted to write your own games, go ahead. It’s 
a good way to learn to program. Games are basically the 
same as any other kind of programming. 

Computer games fall into two broad categories: imita- 
tions of old standards (checkers, Othello), and games which 
could not be played without a computer (Space Invaders, Pac- 
Man). This second category is more difficult to program for 
several reasons. For one thing, you've got to think up a new 
and entertaining concept and then adjust the action until it is 
just hard enough to be challenging but not so difficult that 
people want to give up. 

This category (basically ‘‘arcade’’ games) is especially 
hard to program precisely because a good computer-only 
game exploits all of the computer’s special attributes: speed, 
color, sound. To do this well, to make things look and re- 
spond just the way you imagine them, requires a good bit 
of programming experience. Usually, too, several things are 
happening at once in an arcade game. This often means that 
such a program must be written in machine language, 
which is far faster than BASIC. 


High Card Slice 


Old standards, on the other hand, can often be the best way 
to get started programming games. You already know the 
game concept, and cards or dice or game boards are fairly 
easily constructed and manipulated on your computer 
screen. To illustrate, let’s take a look at a simple simulation 
of one of the oldest card games, High Card. The rules are 
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simple: you place a bet, and then you draw a card from the 
deck. The computer, your opponent, draws a card too, and 
the highest card wins the money. 

One simplification here is that there is no attempt to 
represent the cards on the screen. The entire game relies 
simply on words (‘‘Ace of Spades,’’ for example) when 
cards are drawn. 

Like most computer programs, the program can be 
visualized as having four distinct zones: initialization, main 
loop, subroutines, data tables. We can go through the steps 
in programming this game by looking at each zone 
separately. 


Initialization 


From lines 10 through 80 we are ‘‘teaching’’ the computer 
some basics about this game. Initialization is the activity 
which must take place before any of the action can begin. 
Computers are so fast that they will zip up through these 
lines and start things off in the main loop at line 100 in a 
flash. However, as programmers, we are aware that several 
preliminary events took place inside before anything else. 

In line 20, the computer discovers that there is a variable 
called ‘‘dollars’’ which is equal to 500. It sets aside a section 
(like a small box) in its memory which it labels ‘’dollars.’’ 
When the game is running, it will add or subtract from this 
“"box’’ (lines 230-240) to keep a running total of how much 
money you have left to bet. From time to time (line 110), it 
will check the box and report to the player how much he 
has. The box labelled ‘‘dollars’’ is called a variable because 
during the game the amount in it will vary. 

Lines 30 through 60 are simple enough — they ask the 
player to give his or her name. The computer ‘“memorizes’’ 
it in another ‘’box’’ called ‘‘name$’’ and can now speak 
more personally to the player in lines 140 and 230. Also, the 
computer prints the rules of the game in line 60. 

Line 70 ‘‘reads’’ four names (the face cards) from the 
data tables in lines 510 on. It also makes a ‘‘mental note’’ 
that it has already READ four items. So, when it’s asked to 
READ again (line 80), it will start with the next unread item 
of data, which will be ‘‘clubs.’’ By now, the computer has 
‘“‘memorized”’ a variety of important facts: the player’s 
name, the amount of his or her betting purse, the names of 
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the face cards, and the suits of a standard deck. In less than 
a second, the computer has grasped and filed away the 
necessary facts to go on to the main loop where all the ac- 
tion takes place. 


The Main Loop 


After checking that the player has money to bet, the com- 
puter asks for the bet, checks again that the bet is possible, 
and then runs through one cycle of the game starting in line 
160. At this point, a programmer might find it worthwhile 
to visualize the steps involved in the game: 


1. Draw a card for the player 
2. Draw for the computer 

3. Decide who won 

4. Adjust the player’s purse 


Since both draws are essentially identical actions (the only 
difference will be that we say ‘’Bob draws a...’’ instead of 
‘The computer draws’’), we don’t need to program the 
draw twice. This is where subroutines come in handy. 


The Subroutine 


Twice in the main loop, we GOSUB 300. First the player 
draws, then the computer draws. Line 310 randomly picks 
two numbers, the card and the suit. If line 320 finds that 
this selection matches the one drawn just before by the 
player, it goes back for another draw. Line 330 makes the 
name of the card be the number if it wasn’t a number higher 
than 10 (a face card). 

Then line 340 announces the draw using three variables. 
The first variable (player$) is set up in either line 160 or 190 
as appropriate. Then the card$ and suit$ variables are selected 
from the lists that were “memorized” back in the initialization 
phase (lines 70-80). The subroutine then RETURNSs to the 
main loop. 

Lines 210-240 decide and announce the winner of this 
round. First, if the variable ‘’card’’ (the computer’s card) is 
greater than (>) ‘‘yourcard,’’ the computer is declared the 
winner in line 240, the purse is adjusted, and the main loop 
is restarted (GOTO 100). If the cards are equal, nothing hap- 
pens to the purse and the next round begins. Notice that we 
don’t need to say “IF YOURCARD > CARD” at the start of 
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line 230 to test if the player has won. It’s the only possible 
thing if the computer has gotten this far. 

Once you've solved a particular problem, you'll find you 
can use the solution in many future games. This subroutine 
which draws cards, for instance, would work just as well for 
poker, or blackjack, or dozens of other games. Subroutines 
are handy not only because they can be used repeatedly 
within a program, but because they can be saved and used 
repeatedly in future programs. So think up a simple, tradi- 
tional game and teach it to your computer. There is prob- 
ably no more pleasurable way to learn programming than to 
write a game. 


Program 1-2. High Card Slice 


16 REM *¥NECESSARY INITIAL INFORMATION 
x 
26 DOLLARS=S94G:DIM NAMES (28) , PLAYERS ( 
2G) 
38 GRAPHICS @:PRINT " WITH WHOM DO I 
HAVE THE PLEASURE" 
46 PRINT " OF PLAYING HIGH CARD SLICE 
TRE 
538 INPUT NAMES 
66 PRINT " HIGH CARD WINS IN THIS GAM 
Ei" 
78 DIM CARD#(14%5),7T#(18):FOR T=11 TO 
14:READ T#: CARDS (1I*5-4, 145) =T#:NE 
ATI 
88 DIM SUIT#(8*4):FOR IT=1 TQ 4:READ T 
$:SUIT#(I*8-7,1%8)=T#: NEXT I 
98 REM 
196 REM ¥*XMAIN PROGRAM LOOPX# 
1196 PRINT :FRINT " YOU HAVE #"; DOLLAR 
S 
128 IF DOLLARS*«=@8 THEN PRINT " THE GA 
ME IS OVER.£21 SPACES;}YOU ARE OUT 
OF CASH. ":END 
139 PRINT " WHAT IS YOUR BET"; =: INPUT 
BET 
146 IF DOLLARS< BET THEN FRINT " YOU OQ 
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NLY HAVE #"3;DOLLARS;" TO BET",NAM 

E#:GOTO i348 

YOURCARD=4: YURSUIT=4 

PLAYERS=NAMES 

GOSUB 38 

YOURCARD=CARD: YURSUIT=SUIT 

PLAYER$="THE COMPUTER" 

GOSUB 3848 

IF CARD?>YOURCARD THEN GOTO 244 

IF CARD=YOQURCARD THEN PRINT " A T 
IE'":GOTO 196 

FRINT NAME#;" WINS": DOLLARS=DOLLA 

RS+BET:GOTO 14 

PRINT " THE COMPUTER WINS": DOLLAR 
S=DOLLARS-BET: GOTO ifs 

REM 

REM XSUBROUTINE TO DRAW THE CARDS 
x 

CARD=INTCRND (4) *13)+4+2: SUIT=INT CORN 

Dig) *¥4)+1 

IF CARD=YOURCARD AND SUIT=YURSUIT 
THEN 398:REM NO IDENTICAL DRAWS 
IF CARD#£11 THEN T#=STR#(CARD) : GOT 

Oo 34g 

T#=CARD# (CARD&KS-4, CARDS) 


PRINT " “;PLAYER#;" DRAWS THE "=P 
RINT " “sT#s" OF "“;SUIT#(8*SUIT-7 
, SUITKS) = PRINT 

RETURN 

REM 


REM *kKDATS TABLEX# 

DATA JACK ,QUEEN,EING , ACE 

DATA CLUBS{3 SPACES}, DIAMONDS, HEA 
RTS s SPADES 
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MASTERMAZE 


Mazing in Three 
Dimensions 


“Mastermaze,” an extremely challenging game, uses page flipping 
and machine language to create up to 32 levels. This revised version 
of Mastermaze will create 27 mazes in less than one minute. 


Almost everyone finds mazes an enjoyable challenge. If you 
are like me, however, you feel that mazes take only minutes 
to solve and can soon become monotonous. That is why I 
chose to use my personal computer to its fullest, having it 
perform functions impractical with paper and pencil. This 
three-dimensional maze game is the result. 


One Level at a Time 


First, let me explain how to use the program. Since it is im- 
practical and nearly impossible to display an entire three- 
dimensional maze at one time, the program displays only the 
level that the player is on, which is really of no consequence 
to the user, but makes life a lot easier for the programmer. 
What we are doing is analogous to a book: instead of show- 
ing the entire book in one screen, we are displaying only one 
page at a time — the page that is being read. 

After you have typed in the entire program, the first 
thing you must do is SAVE a copy to tape or disk. This pro- 
gram plays around with the display list, so typos could cause 
problems and possibly crash your computer. 


Playing the Game 


Once a copy has been SAVEd, type RUN and you will be 

prompted with the question “# OF LEVELS?” What the com- 
puter really wants to know is how deep you would like your 
maze to be. In other words, the computer wants you to tell it 
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one more than the minimum number of down “tunnels” the 
user must pass through before he reaches the end. In terms 
of our book analogy, the computer is asking for the number 
of pages in the book. 

For a first-time player, I suggest three or four levels at 
most. The minimum number of levels is one, and the maxi- 
mum, for computers with 48K, is 32. The maximum number of 
levels will be less on computers with DOS present or less memory. 

Once you have entered your desired number of levels, the 
program will ask “INVISIBLE (1) OR VISIBLE (2)?” If you try 
invisibility, beware. Although the screen appears to be blank, 
the walls to the maze are still there. 

Now that the program has the necessary data, the com- 
puter begins to build the maze to your specifications. Before 
work actually begins, the screen informs you of the work to 
be done. After this short delay, the screen is turned off and 
the maze is constructed. The actual time needed to construct 
the mazes is relatively fast thanks to a machine language 
routine written by David Butler. 

Once the computer has completed construction of the 
maze, the screen is turned back on, and you are asked to 
PRESS START TO BEGIN. Watch the word START closely. See 
how it is flashing on and off? This effect is produced by tog- 
gling CHACT (location 755 or hex 2F3) in rapid succession 
(alternately POKEing in one and two). You are asked to press 
START when you are ready because the program times you, 
and it would not be fair to start timing from the moment the 
maze was completed. 

Therefore, when you are ready to begin, you press 
START, which tells the program that you are poised with 
joystick in hand; the top level is displayed and timing begins. 
You will see an S_ in the upper left corner of the screen, 
with the ball character (control-T) underneath. You are the ball 
character. 


Threading the Tunnels 


Just move the joystick in the direction you want to go. “Sure,” 
you say, “but where doI want to go?” Simple enough. If you 
chose a one-level maze (chicken ), you will see an F at the 
lower right corner of the maze. That’s where you want to go. 
If you were gutsy, however, and chose any number of levels 
greater than one, you will see five graphics “ +” characters at 
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random points throughout the top level. These symbols repre- 
sent tunnels, through which you must pass to reach the fin- 
ish (which is always in the lower right of the bottom level of 
the maze). As you might have guessed, you always start at 
the upper left of the top level. 

To pass through a tunnel, simply move onto the “ +” 
symbol and press the fire button. Voila! The new level is 
displayed instantly. Have you gone up or down? Well, if you 
were on the top level, the only place you could go is down. 
If you are in the middle of a maze of four or more levels, 
then I have absolutely no idea which direction you'll go; you 
may pass through the same level three or four times before 
you realize that you’ve gone nowhere. 

In mazes of ten or more levels, be prepared to see the 
same level a few times before you make any progress. No 
matter how many levels you choose, however, the goal is still 
the same. You must try to go down to unexplored levels; if 
you end up on a level you have been on already, you have 
looped, and you must figure out whether you've gone up or 
down. 

In any case, find the F on the lowest level, go to the 
space directly above it, and move down. If you do not push 
the joystick down, the timer will continue, and your record 
time will be lost. When the timer has stopped, you will hear 
five beeps. 

If you do not hear the five beeps, you have not stopped 
the timer, or the sound is gone on your machine. Either way, 
just remember to go down when you reach the finish — as 
you get better and better, times will get tougher and tougher 
to beat, and each second will become important. 

That’s all there is to it. After the five beeps have informed 
you that the timer has stopped, the screen will become visi- 
ble (no change for visible mazers), and the time used to com- 
plete the maze will be displayed in hours:minutes:seconds 
format. The program will loop until you press the START but- 
ton again, which will cause the program to re-RUN. 


Possible Dead Ends 


There are a few caveats, however. First, if you are attempting 
an invisible maze, some joystick directions may not work. 
There is nothing wrong with the program; if you cannot 
move in a certain direction, you have hit a wall (I told you 
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they were still there ). Second, don’t even try to do deep in- 
visible mazes without the consent of your psychologist. Third, 
each tunnel can be used only once, so make your moves 
wisely. 

Last, and most important, don’t ever remove lines 14 and 
15. This program, as mentioned earlier, will cause the com- 
puter to do some strange things if you hit the BREAK key. 
Lines 14 and 15 turn off the BREAK key; the only way to get 
out of the program is to hit the SYSTEM RESET button. 





An example of a one-level maze. 


The Program 


Now let’s look at how the program accomplishes what it 
does. Line 8 is self-explanatory. Line 10 resets the screen and 
sets the variable TOP to the address of the LSB of the screen 
memory address. By POKEing different numbers into TOP 
and TOP +1, we can display any area of memory. Line 12 
stores the value of SAVMSC (locations 88 and 89, 58 and 59 
hex) into RL and RH, respectively. This step is necessary to 
reset the destination of PRINT statements after these locations 
have been modified by the maze generator routine. 

Lines 20 and 23 obtain the required data from the user 
and determine the value of BOT, the page number of the 
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lowest memory address to be used. Line 25 makes sure that 
we haven't used up all available memory, and informs the user 
of any memory conflict. Line 26 lets the user know that the 
delay which will follow is intentional, not something gone 
wrong with the program. Line 27 loads the machine language 
maze generator program from the DATA statements (lines 
1000-1070) into free RAM at page six. The routine, written by 
David H. Butler, is a modification of Charles Bond’s original 
maze generator in BASIC. 

Line 28 turns off the screen and sets up the display for the 
start of the game. Line 29 clears memory using the CLEAR 
key. Line 30 establishes the top of maze memory and sets up a 
loop to construct each of the MAXLEV levels of the maze. 
Lines 60-80 set up the screen and call the maze generator routine. 


Establishing Start and Finish 

Line 120 restores the PRINT statement destination to its 
original value by POKEing RL and RH back into SAVMSC. 
Line 130 establishes the S in the upper left and the F in 

the lower right of the maze. Line 135 checks to see if any tun- 
nels have to be built; in other words, if the maze is only one 
level, jump over the tunnel building routine (lines 140-170). 

The tail end of line 170 restores the screen and sets up 
the console switches for reading. Line 172 executes a GOSUB 
to the routine that randomly sets the color of the background 
at the beginning and also each time the user passes through 
a tunnel. Line 173 loops indefinitely until the user presses the 
START button. This line is the one that toggles CHACT, as 
described earlier. 

Line 174 makes the maze visible or invisible, based on 
your response to the second prompt at the beginning of the 
program. Line 175 resets the three-byte timer RTCLOK to 
zero. Line 180 determines the start position for the player and 
tells the display list where the first level of the maze is. Lines 
185-321 are the main loop and should be self-explanatory. 

A few notes, though: Line 190 reads the joystick and the 
trigger, lines 200-230 perform routine motion, line 235 checks 
for a win, line 240 checks for walls, and lines 300-321 change 
levels. Lines 400-415 stop the timer, sound the bell, and 
display the time used. Line 420 sets up the console switches 
for reading and POKEs a 124 into the attract mode flag 
ATRACT (location 77, hex 4D). The 124 in ATRACT gives the 
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user approximately 16 seconds before the screen goes into at- 
tract mode. 

Line 430 loops until the START button is pressed. Line 
450 is the string A$ (we can’t PRINT it because we've changed 
the screen memory locations). Don’t forget to put the quota- 
tion marks towards the end of the line; doing that fools 
BASIC into reading trailing blanks to fill up A$. Finally, line 
500 reads a random number from the random number 
generator RANDOM (location 53770, D20A hex), masks out 
the four low-order bits, and uses it to set the background col- 
or. If you're interested in the technical aspects of the game, 
read on. If not, RUN the program and have some fun. 


Inner Secrets of Page Flipping 


The programming tool behind the entire program is called 
page flipping. What this technique involves is changing the 
address that the ANTIC chip reads to determine the start of 
screen memory. This address is always in the display list, 
which is pointed to by SDLSTL and SDLSTH (locations 560 
and 561, hex 230 and 231) in standard LSB, MSB order. 

In the display list you will find all sorts of numbers; all 
have a meaning and should not be tampered with by the in- 
experienced programmer. In different graphics modes, the 
display list changes both in length and location. 

In general, the display list follows two rules. First, all 
graphics modes accessible through BASIC have display lists 
that start with 112, 112, 112 in three successive bytes. These 
three bytes tell the ANTIC that there are to be 24 blank lines 
on the television screen. 

Second, the fourth location of the display list contains a 
byte which has its sixth bit set. The rest of the byte varies 
depending on the graphics mode, but bit six is always set. Bit 
six, when set, tells the ANTIC chip that it is to begin direct 
memory access (DMA) at the location pointed to by the next 
two bytes. Therefore, any area in memory can be displayed 
by POKEing the address (LSB, MSB) into the location pointed 
to by SDLSTL and SDLSTH plus four. 

This is the basis of this program. All screens are con- 
structed before play begins, and, instead of drawing an entirely 
new screen, all the program does is change these addresses to 
point to the first byte of the new screen. 

During the blank-out period at the start of the program, 
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the entire maze is constructed, layer by layer, and the 
resulting mazes are stored in 1K decrements, starting with the 
last free kilobyte memory block before the display list. The 
maze generator routine does not even need to be modified for 
this purpose; all that was done was to change the PRINT 
destination pointer SAVMSC (location 88, hex 58, mentioned 
earlier). In other words, all I did was fool the maze generator 
routine into thinking that screen memory was located in mid- 
dle area RAM (instead of the top), and since 960 bytes are 
needed for the standard GRAPHICS 0 screen, 1K blocks were 
very convenient. 

The tunnels used this information both at construction 
time and at level-changing time. Random numbers were all 
that was necessary to build the tunnels; checks were required 
only to make sure that the tunnels would be within the maze 
and that they did not cut through maze walls. Since no other 
checks are made, it is possible to have many tunnels packed 
closely together. 

The simple method of checking upward and downward 
movement causes tunnels to be disabled as they are used. 
When the player changes levels, a control-T character is left 
where the graphics plus symbol was previously. As a result, 
the checks for the graphics plus symbols will always fail on 
an already-used tunnel. This feature, added only to make the 
mazes more challenging, can easily be altered by changing 
the GOTO 185 in line 250 to GOTO 190. 

This simple change makes the program think that you 
have just moved across or down (i.e., you have not changed 
levels). Therefore, the program replaces the previous space 
with the variable T, which contains the screen memory value 
of the space you were on before. When you move, the 
control-T is moved in the proper direction, and T is POKEd 
into the space you just moved from. It is confusing, but it 
works, and it works fast. 


Tunnel Checking 

The tunnels, when used, merely change the value of the sixth 
byte of the display list. Since IK memory blocks are used, it 
is not necessary to change the fifth, LSB of the display list 
DMA address; it will always be zero. Either the sixth byte is 
added to four, or four is subtracted from it. The reason for 
this change should be evident — four pages constitute one 
kilobyte of memory. 
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Locating the mazes in this fashion greatly simplifies all 
checks. Instead of going through a series of different LSB, 
MSB checks to determine the location (two-dimensionally) of 
a space on two different levels, all that is required is a PEEK 
to the address plus 1024 (1K) and the address minus 1024. 
Again, this is how tunnel checking is done in lines 305 and 
310. 

Last, let’s look at the timer. From the time the computer 
is powered up until the time it is powered down, the OS, as 
part of its stage one VBLANK (vertical blank) routine, in- 
crements the three-byte jiffy counter RTCLOK. RTCLOK is 
located in three consecutive bytes starting at address 18 
decimal, 12 hex. 

Unlike most of the system numbers, this clock is stored in 
MSB first, LSB last order. Since vertical blanks occur once 
every sixtieth of a second, this timer counts “jiffies” (sixtieths 
of a second). When the game start is pressed, zeros are 
POKEd into the clock addresses (line 175). As soon as the 
player has completed the maze, the locations are read and 
stored in the variable ET (for elapsed time). Simple 
mathematical manipulations derive the hours, minutes, and 
seconds and store them in the variables EH, EM, and ES, 
respectively. 

That's all there is to it. Since we know that we started at 
zero, no other manipulations are needed. (Incidentally, it is 
possible to stop the clock, but doing so requires a shutdown of 
the entire system VBLANK routine, which can have disastrous 
effects on your program.) 


Program 2-1. Mastermaze 


REM KXXEXMASTERMAZEXKE 


REM **¥Mazing in Threex 
REM K#Hk*¥Dimensionskkxx 


DIM A#(37):SW=a 
@ GRAPHICS @:TOP=FEEK (568) +256KPEEK ( 
5461)+4 
2 RL=PEEK (88): RH=PEEK (89) 
14 O=PEEK(16)-128:1F O<@ THEN O=O0+128 
15 POKE 14,0:POKE 53774,0 


eo dhe 
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7 oe? "# OF LEVELS"3;:INFUT MAXLEV:M 
AXLEV=MAXLEV-1:7 “INVISIBLE (1) OR 
VISIBLE (2) "3:IF MAXLEV<@ THEN MA 
XLEV=% 

BOT=INT (TOF /2546) -MAXLEV#4-4: INFUT 
INV 


IF BOTK2S6<PEEK (144) +256%PEEK (145) 
THEN 7 "EREE 
":GO0TO 2a 
POKE 752,1:7 "{CLEAR}":POSITION 4, 
19:7 "CONSTRUCTING MAZE...WAIT FOR 
START" 
RESTORE 1@@@:FOR I=1534 TO 1699:RE 
AD A:FOKE 1,A:NEXT I:FOKE 755,1 
POKE 559,@:7 "{CLEAR}":POSITION 19 
11:7? "PRESS Siig TO BEGIN" 


TM=PEEK (1%6):POKE 186,TM-4:POKE 88 
»9:POKE 89,B0T:? "{CLEAR?}":POKE 14 
&,7M 

Ri=BOT+MAXLEV*4:FOR X=BOT TO Ri ST 
EP 4:POKE 77,@:POKE 88,@:POKE 99, X 


SC=PEEK (88) +256xFEEK (89) :A=SC+43 

FOSITION 2,4:POKE 752,1:FOR I=1 TO 
23:7 "{37 BEG": NEXT I 

POKE A,5 

G=USR(1536,1675,A):GOSUB 590 

NEXT X:FPOKE 88,RL:POKE 89,RH 

POKE BOT*256+917,38:FPOKE Rix*256+3 
et 

IF MAXLEV=8 THEN FOKE 559, 34:POKE 
53279,8:G0TO 172 

FOR X=BOT TG R1-4 STEF 4:FOR Y=1 
TO 5 

J=INT(RND(@)*874)+43 
W=J-CINT(3/4@)*48):1F WKS OR W=39 
THEN 15@ 

IF PEEK (X#256+]3)=8 AND PEEK (X*256 
+18244+])=@ THEN FOKE X*256+3,83:P 
OKE X*256+19244+J,83:GOTO 178 
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GOTO i156 
NEXT Y:NEXT X:FOKE 559,34:POKE 53 
279,8 

GOSUB 5a 

IF PEEK (53279)}<26 THEN POKE 755, - 
PEEK (755)4+3:G0OTO 173 

POKE 755, INV 

PFOKE 18,@:FOKE 19,@:FOKE 20,4 
ST=R1*2564+43: WIN=BOT*254+960: POKE 
TOP, @:FOKE TOFP+ti1,R1 


S=PEEK (5ST) :T=ST:FORKE 5ST, 84 
Q=STICK (4) :R=STRIG(H):IF R= AND 
S=83 THEN 398 

IF Q@Q=7 THEN ST=5T+1 

IF @=11 THEN ST=ST-1 

IF @=14 THEN ST=5T-49 

IF @=13 THEN ST=5T+48 

IF PEER (ST)=38 THEN 464 

IF PEEK (ST)=128 OR PEER (ST}=51 TH 
EN ST=T 


IF ST22T THEN SW=4:FOKE 1T,95:POKE 

77,8:GOTO 185 

GOTO i968 

IF SW=i1 THEN 198 

IF PEEK (ST+1824)=83 THEN Ri=Ri+4: 
ST=ST+18@24:GOTOQ 326 

IF PEEK (ST-1@24)=83 THEN Ri=R1-4: 
ST=ST-1824 

IF Rix BOT OR R1i?MAXLEV*4+BOT THEN 


bar da 
vO 


POKE TOP+1,R1:SW=1:GOSUB 3%9:GOTO 
185 

A=USR (38484) 

ET=FEEF (18) *65536+FEER (19) *256+FE 

ER (28) :EH=INT (CET/2146@0%) sEM=INT ¢¢ 

ET-EHX 2146808) /3608) 

FOR X=1 TO S:FOR Y=i5 TO ® STEF - 

@.2:SOUND 8,9,18,Y:NEXT Y:NEXT Xs 

POKE Yoo, 2 

ES=INTCCET-EHX 214698 0-EMK2460H8) £68) 


igag 
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7 “CLEAR “ss? 1? "445 DATA ELAPSE 

D TIME: "3EHs"i"3EM:":";ES;" 

{19 SPACES?:" 

? "CONT":POSITION @,@:FOKE 842,13 
:STOF 

POKE 842,1 

FOSITION 2,15:RESTORE :FOR y=@ TO 
i 

READ A$:FOR X=BOT*#256+Y*4% TO BOT 
S5S6+YX4G+LEN (A$) -1:F0KE X4+2,ASC¢ 

At (X-BOT*2544+1-Y*4a, X-BOT#256+1-Y 
*48))-32 

NEXT X:NEXT Y 

POKE 53279,8:POKE 77,124 


IF FEER(S3279)226 THEN 43¢ 
RUN 


DATA FRESS iwi FOR ANCQTHER MAZE 
<1@ SFACES>;" 
AA=FEEK (53778) :AR=AA-‘CINT CAAS 14) & 
16) :SETCOLOR 2,AH,4: FORE 712, FEEK 
(718) :RETURN 


DATA 194,164,133, 288,194,133, 297 
,164,133,294. 194.133,203,.173.19, 
2i@,41, 3,133,712 


DATA 133,213, 24,18,1698,165, 203, 
13,267,133, 285,165, 204, 260,113,2 
87,1233,296,169,¢ 

PATA i777, 205,201,12 , 298,498,145, 
212,24,195,1,145,205.195,3,19,16 
8,165, 293,113 

DATA 297,133,293, 26%,165, 294,113 
,207,133,204.169.4, 168,145, 293,1 
65, 295,133, 293,145 


DATA 246,133,264, 24,144,193, 239, 
#i2, 165, 212, 41, 3, 1SS, 212,187 5213 
»248,189,148,4 

DATA 177,293,133, 212,152,145, 293 
7169, 251, 24,181, 212,176,24,198,2 
12,165,212,24,19 


sx | 
= 
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1968 DATA 168,546,165, 283, 241, 297,133, 
203,299,165, 294, 241, 267,133,284, 
34,144,151, 74,2 

197 DATA 6,176, 255, 254, 255,88,8,1,9, 


214, 255, 255, 255,498,909 
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TAG 


Ed Davis 
Translated for the Atari by Charles Brannon 


Presented here is a two-player game in graphics mode 1 — with a 
total of ten colors on the screen at once. 


When playing real-life tag with only two players, nobody 
really wins because the number of tags per player remains 
constant. But in computer Tag, the clock decides who will be 
the champion. Every 15 seconds, if the person who is It can- 
not tag the other, the computer will reverse the It player. This 
feature allows a real fight for points. If you are not skilled in 
attacking, you can become skilled in evasive tactics and win 
the game. 

Plug a joystick into jacks one and two, and get ready for 
some furious chasing and desperate dodging. After the game 
initializes, each player can type in his initials (three letters). 
You then select the final score (what you play to) from 1-10. 
Press OPTION to increase the final score, and SELECT when 
the desired number appears. The game will begin with player 
one in the upper left-hand corner, and player two in the op- 
posite corner. Player one will be flashing, which indicates that 
he is It. 

Play consists of It trying to catch the “victim” as fast as 
possible, while the “victim” tries to evade It for at least 15 
seconds. Both players must maneuver about the screen, turn- 
ing and twisting among a maze of pink rocks. But if you dal- 
ly too long, the rocks will wake up, open their eyes, and fur- 
ther confound the conflict. Don’t let one of the Living Rocks 
touch you. 


Tag with a Twist 

Tag uses character graphics in graphics mode one, but with a 
twist. Usually, if you want a redefined character set along 
with letters and numbers, you are limited to redefining punc- 
tuation and other special symbols and have to wait 10 to 15 
seconds for a POKE loop that downloads the ROM character 
set to RAM. 
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Tag with a twist! 


Tag, however, uses a Display List Interrupt (DLI) to “flip” 
the character set midway down the screen. This lets you use 
the upper portion of the display for normal text (using the 
entire character set), and the lower portion for as few or as 
many custom characters as desired. The DLI used in TAG 
also changes the screen colors, so you get five colors in each 
portion, for a total of ten simultaneous colors. 


Flipping Out 


Another interrupt-driven machine language routine in Tag 
uses Count-Down Timer 2 to “flip” the character set pointer 
every 16/60 of a second. In Tag, there are two character 

sets. The first character set, for example, displays one view of 
a running person. The other character set, at an offset of 512 
bytes, displays another view. 


When the CHBASE pointer is switched between the two 
views, the character appears to be running. Character set flip- 
ping can also be used to represent blinking, flashing, spin- 
ning, bouncing, or any other simple motion. And, since the 
flipping is controlled by machine language, the motion is fast 
and regular. It also simplifies the BASIC program. 
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Program 2-2. Tag 


1a 
1164 
129 


2ée 
274 
2B 


298 
Sag 
31g 
SEa 


336d 
2404 


REM Mgitoem 

GOSUB 1178@:REM INITIALIZE 

PLR=1-PLR:1F FPEER(S532793=6 THEN R 

UN :REM ALLOW RESTART 

IF FEER (2@) +2554 FEER (197) +9488 THEN 
IT=1-IT:FOQRE 24,8: FPOQRE 19,8:FGR 

W=15 TO @ STEP -#.1:50UND a, ,ig,i2 
~W:NEXT W 

BLINK=BLINK-(CBLINE +4) :GOQ5UB Sa 

S=STICKE(PLR}:T=STRIG(PLR) FORE FO 

REHERE+L.VVtLT 

IF S=15 AND T=i THEN S=S¢(FLE) 

S¢(PLR)=5 

SOUND PLR, Sk5+188,18,4 

TEST=PO5¢(FLA} 

TEST=TEST—-28@#2 (5=18 GR 5 
420 (5=2 OR S=9? OR S=12 

D S£123+¢%5:4 AND 5293) 
IF TEST#SCR+28 OR TEST?5CR+439 TH 

EN SOUND FPLR,8,8,8:G0TG isa 

CHR=(524 AND G#8)+2#4 (0578 AND Stile 
424 (5=14 OR S=153 

SOUND FLR.@,8.@ 

FHESPEFRCTEST): fF P= THEN PORE FOS 
(PLA) ,82PGRE TEST.CHR+PLA#64:F05 ( 

FLRIH=TEST:GCGOTQ iff 
=P-(PLR=#)*64:1F ¢2£1 GR £23 THEN 
2aa 

IF PLR=IT THEN S18:REM SOTCHA 

FPLR=1-PLRA: GOTO 218:REM WHOOFS! 

IF FP=194 THEN FPLR=i-FPLA:GOTQ 218: 

REM "MONSTER" GOT PLAYER 

GOTO 128 

REM PLAYER CAUGHT ROUTINE 

RESTGRE 248: S0UND 2,4.,8,0 

POSETIGN 8,22 REE" Gigkiae: * 3 ¢i- 

PLR)+15" 

PORE FOS(8).#:PORE FOS(i},#8 

DATA 148,1,198,1,115,1,79,1,198, 
124,35 


bd 
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FOR I=i TO &:READ A,B 

FOR W=i5 TO @ STEP -#.5/B:SOUND @ 
5A,18,W:NEXT W 

SOUND @,8,@,@:NEXxT I 

COLOR 32:PLOT #,1:DRAWTO 19,1 

SCR (PLR}=SCRCPLR) +1 

FOSITION 3,1:7 #4;SCR(@):FOSITION 
17,127 #6:SCR(1) 

IF MONSTERS THEN FOR I=1 TO MONST 

ERS:POKE MPOS(1),5+128:NEXT I 

IF SCR(PLR)<ESCORE THEN IT=1-IT:G 

OSUB 151@:GOTO 126 

REM GAME OVER 

FOR I=255 TO @ STEP -S:POKE COLTA 

B+4,PEEK(53778):SOUND @,1,12,4:S0 

UND 1,1,1@,4:NEXT I:SOUND 4,9,9,9 

POSITION @,1:7 #6:;"{3 SPACES} GE 

faz "sPLR+i;" wENE! <3 SPACES?" 

FOR I=1 TO S:FOR W=@ TO 15:SOQUND 

@,148,@,W:NEXT W:FOR W=6 TO 15:S0U 

ND @,12,0,15-W:NEXT W:NEXT I 

POKE COLTAB+4, 28:S=@:GOTO 498 

IF PEEK(2@)<25 THEN 514 

POKE 29,@:POSITION 7,@:S=1-S:IF § 
THEN 7 #6;"PRESS":GOTO 514 

? #4; "Hii" :POKE 53279,¢ 

IF PEEK (53279)<3>6 THEN 48¢ 

RUN 

REM ...A4ND THE MONSTERS COME OUT 

TO FLAY 

DURATION=DURATION-i:IF DURATION T 

HEN 599:REM MAKE IT RARE 

MONSTERS=MONSTERS+1:IF MONSTERS? 
THEN MONSTERS=8:G0TO 598 

MPOS=SCR+2@+INT (428*RND(@)):I1F FE 

EK (MPOS)<35+128 THEN 54@ 

MPOS (MONSTERS?) =MPOS: MCUR (MONSTERS 
)=DIRCINT(S*RND(@})) :MNERGY (MONST 

ERS) =28-MONSTERS 

BLINK=1@:FPOKE MPOS,4+128: DURATION 

=45: RETURN 

IF MONSTERS=6 OR BLINK THEN RETURN 


6468 


6354 
666 
476 


689 
698 


7B 


71g 
726 


736 
746 
738 
769 


7768 


7BS 


798 


BAG 


819 
82g 
83a 


Part Two 


INDEX=INDEX+1i:IF INDEX>MONSTERS T 
HEN INDEX=i 

SOUND 3, INDEX*1%+2@,8,15 
MPOS=MPOS (INDEX) +MCUR(INDEX):IF M 
POS<SCR+28 OR MPOS?SCR+419 THEN 6 
5B 

P=PEEK(MPOS):IF F=@ THEN FOKE MFO 
SCINDEX),@:FOKE MPOS,196:MPOS(CIND 
EX)=MFOS:GOTO 478 

IF F<4 OR P3464 AND F<S68 THEN PLR= 
1-(F264):GOTO 31@:REM MONSTER BUM 
FP PLAYER 

MCUR CINDEX) =DIR(INT(8*RND(@))) 
MNERGY (INDEX) =MNERGY (INDEX)-1 

IF MNERGY (INDEX) ?@ THEN SOUND 3,@ 
,%,%:RETURN 

REM TURN TO STONE 

FOR I=i TO 1@:SOUND 3,1*2+59,0,8: 
NEXT I:SOUND 3,9,4,@ 
MONSTERS=MONSTERS-—i:FOKE MPOS(IND 
EX), 54128: INDEX=INDEX-1 

FOR I=INDEX+i TO MONSTERS 

MPOS (I) =MPOS(I+1):MCUR(CI)=MCUR(I+ 
1):MNERGY (I) =MNERGY(I+1) 

NEXT I:SOUND 3,4,8,@ 

RETURN 

END 

CHSET=(PEEK(196)-8)*256:FOR I= T 
O 7:POKE CHSET+1,@:FOKE CHSET+512 
+1,@:NEXT I 

RESTORE 81@:TP=@:IF PEEK (CHSET+8) 
=24 THEN 946 

READ A:IF A=-1 THEN 94@ 

FOR J=@ TO 7:READ B:FOKE CHSET+TP 
*512+A*8+J3,5:SOUND @,8,19,8:FOKE 
712,B:NEXT J 

TP=1-TFP:GOTO 78a:REM FOLLOWING DA 
TA STATEMENTS ARE CUSTOM CHARACTE 
RS 

DATA 1,24,24,16,126, 24, 28,82,33 
DATA 1,24,24,18,124,16, 24, 36,72 
DATA 2,28, 28, 72,4259, 28, 22,48 
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B4G 
B50 
B84 
874 


88a 


89g 


een) 


9196 


928 


938 
946 
958 
9éa 
97 Bi 


FE a 


9°78 
1isag 


1919 
18268 
1838 
1948 
14356 
1866 
1976 
168@ 
1996 
1199 
1114 
1126 
1134 
11496 
1156 
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,28,9,62,72, 
,24,8,126,24 
24, 72, 82,8, 
39,63,91,2 


28,52, 
556,74,132 
24,36,18 

Si, 219, 124.6 


a 


Bola ty bd 


> 


%, 227, 


» 39,653,127, 


75 
75 
DATA -1 
IF PEEK (16@@)=173 THEN 98¢ 

FOR I=1536 TO 1629:READ A:POKE I, 
A:POKE 712,8&:SGUND #,A,19,9:NEXT 
I 
SOUND @,4,%,@:LET POKEHERE=16a5:V 
=22?: COLTAB=1424 
RETURN 

REM FOLLOWING IS MACHINE 
—E CODE. TYPE Minami. 
DATA 144,184,194,133, 292,169 
DATA 36,141,%,2,169,6 

DATA 141,1,2,169,192,141 
DATA 14,212,169,76,141,48 
DATA 2,169,6,141,41,2 

DATA 169,146,141, 24,2,96 

DATA 72,138,72, 166, 243,173 
DATA 92,6,141,18,212,141 
DATA 26, 298,142,9, 212,162 
DATA 4,189,87,6,157,21 

DATA 248, 202,208, 247,173,18 
DATA 219,9,6,141, 22,298 

DATA 194,179,194, 64,145, 243 
DATA 73, 2,133, 203,169,16 
DATA 141, 26, 2,96,192,118 


Pa 
a 


@,255,9 
8,255,9,2 


LANGUAG 


<= 
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DATA 72, 216,28,5,9,9 

REM 

OPEN #1,4,0,"K:" 

GRAPHICS 2+14:POKE 538,9:FOKE 54 
284, 44 

POSITION 2,2:7 #4; "THE":POSITION 
4,4:7 #6; "(Ais":POSITION &6,6:? 
#6; "GEi":FOSITION 7,8:7 #46;"t ag 
FOR I=@ TO 3:SETCOLOR 1,1,14-1%*2 
:NEXT I 

FOR I=i TO S@:FOKE 53274,PEEK(53 
778) :POKE 53279,@:FOKE 712, PEEK ¢ 
S3778):NEXT I 

GOSUB 74@:REM INITIALIZE CHSET A 
ND MACHINE LANGUAGE 

GRAPHICS 1+16:DL=PEEK (56@)+256"P 
EEK (561)+4 

A=USR (1536, CHSET/ 254) 

SETCOLOR 4,%,14:SETCOLOR 3,15,8: 
SETCOLOR @,27,1@:SETCOLOR 2,9,4 
SCR=PEEK (DL) +256*PEEK (DL+1)+4@ 
POKE DL-1,7+64 

POKE DL+2,PEEK(DL+2) +128 

FOR I=1 To 12@ 
P=SCR+3G+INT(S88*RND(#)):1F PEEK 
(P) THEN 1319 

POKE P,5+128:NEXT I 

FOR PLR=8 TO i 

POSITION 6,@:27 #6; "PLAYER "3PLR+ 
1 

POSITION 1,1:7 #6; " See 
PaewIIES}": FOR I=1 TO 3 

GET #1,A:IF A¢<32 OR A>9@ THEN 13 
bo 

COLOR A+32%* (A+64)+PLR*129:FLOT F 
LR*1441+1,@:NEXT I 

COLOR 32:FLOT 5,@:DRAWTO 15,@:PL 
OT @,1:DRAWTO 19,1:NEXT FLR:COLO 
RK 48:PLOT 3,1:FLOT i7,1 

FOSITION 7,9:7 #6; "ENEWMEwe": ESCO 
RE=5 


39 


1468 
14168 


1424 
1436 
14464 


1456 
1466 


1476 


1486 


1496 


159@ 


1519 
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IF FEERE (S3279) 
POST TION: 35,162 


IF PEER (CS3279)<2£23 THEN 1494 

IF PEEK (S3279)=3 THEN 1436 
ESCORE=ESCORE+1:1IF ESCQRE?19% THE 
N ESCORE=1 

GOTO 149% 

COLOR 32:FLOT 53,4@:DRAWTO 15, @:PL 
OT 3,1:DRAWTO 15,1 

POSITION 9,46:7 #6; "bite": 1T=@:PLR 
=I1IT 

POSITION 9,2:7 #6; "(28 [" 

DIM POSt1L),Sti1),SCKC1i) ,MPOS Ce), D 
IR(7),MCUR(8) ,MNERGY (8): S5SCR(8) =6 
:SCR(1)=6 
DIR(4)=26:DIR(1)=28:DIR(2)=19:DI 
R(3)=-19:DIR(4)=21:DIR(5)=-21:DI 
R(€6)=1:DIR(7)=—- 

POKE 28,@:POKE 19,%:MONSTERS=8: D 
URATION=7& 

POS (@)=SCR+29:P0S5(1)=SCR+419:5(@ 
»=7:5(1)=11:2Z=8 

RETURN 


=5 THEN 1464 
#6; 


6;"G ";ESCORE;" 
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Hidden Maze 


Gary Boden 
Translated for the Atari by Charles Brannon 


This game offers a different twist to maze puzzles: you can see only 
a very small section of the maze at a time. 


Mazes present a challenge different from arcade-type 
“shootout” games, but the appeal of a maze can quickly fade 
once it has been solved. I have enhanced the challenge by 
hiding the complete maze from the player and showing only 
a realistically limited view from any position inside it. 
Although the view is from above rather than ground level, 
the player still gets a claustrophobic feeling similar to that of 
actually being inside the maze and groping along the 
corridors. 

The objective is simply to find a way out of the maze in 
the least amount of time. You start at the center of the maze 
with only your player character visible. As you move through 
the passages, the walls around your player become visible, and 
the maze unfolds. 


Playing Hidden Maze 


Use the joystick to move your ebullient little character around 
the maze, your goal being the upper-left-hand corner of the 
screen. The challenge is in how long it takes you to get there. 
You can take a “cheat peek” of the entire maze by pressing 
the fire button. This will display the maze for about three 
seconds, then turn to black and delay your movement for 
another three seconds as a penalty. If you want a really good 
score, don’t use it! 

We can construct the maze directly on the screen 
(GRAPHICS 1 is used here, with custom characters for the 
walls and player). We make it invisible by setting its color 
equal to the background color (done here with SET-COLOR 
2,0,0). 

Then, to open up the maze, we just have to PEEK (into 
screen memory) the eight characters surrounding the player 
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The more success you have, the more of the maze you see. 


character, and if the PEEKed character is an “invisible wall/’ 
replace it with a visible wall. 

Scoring is provided with RTCLOCK, Atari’s realtime clock, 
which is found at location 18, 19, and 20. These are used in 
the opposite of the normal LSB/MSB order. Chaining all three 
locations together will give the current “jiffy time” since the 
machine was turned on, measured in sixtieths of a second: 

JIFFY =PEEK(20) +PEEK(19)*256 +PEEK(18)*65536 
Since location 18 only ticks every once in a long while, you 
can leave it out for most measurements. Dividing the jiffy 
time by 60 gives you the time in seconds: 

SEC =(PEEK(20) +256*PEEK(19))/60 

The ability to add timing to your programs will enhance 
them. Many games would lose their challenge without the 
time element. Try experimenting with locations 18, 19, and 20. 


Experimenting is an excellent way to learn more about your 
computer's capabilities. 


Program 2-3. Hidden Maze 


19@ REM 
1196 GRAPHICS 17:GOSUB 36@:GOSUB 48%@ 
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PPOS=5C+238 

POKE FPPOS,5 

DIM DIR(3) 

DIR (#)=208:DIR(1)=21:DIR(2)=19:DIR 
(3)=1 

POKE 29,@:POKE 19,4 

FOR I=8@ TO 3 
ZP=PPOS+DIR(I):s:PE=PEEK(ZF):POKE Z 
P,PEK-64% (FE=129) 
ZF=PPOS—-DIR(I) sPE=FPEER CZF) :FORKE Z 
P,PEK-64% (PFE=129) 

NEXT I 

ST=STICK (4): TFOS=FFOS+284 (57T=13)- 
2@e(ST=14)4+¢S9T=7)-(ST=11} 

CHR=3% (57T=11)+4e (S57T=7)45%e (57T=143+4+ 
6* (ST=13) 

IF STRIG(#)=8 THEN SETCOLOR 2,4,1 
4:FOR W=i1 TO S@@:NEXT WwW: SETCOLOR 
2,8,8@:FOR W=1 TO SH8a:NEXT W 

IF STRIG(#)=8@ THEN 244 

IF PEER CTPOS) THEN 276 

PORE PFOS,@:POKE TFOS, CHR: FFOS=TF 
OS:I1F FPFOS#=2:SC+21 THEN 178 

IF PPOS< +S5C+21 THEN 178 

FOR I=1 TO S@:FOR J=@ TO 3:FOKE 7 
G@8+I,PEEK(S3779):NEXT JsNEXT I 
GRAFHICS 18:7 #6; " WETTER Be Gs" 
SEC=INT ((CFEER (28) +2546 PEER (193376 
a) 

? #63; "IN "3; 5EC;" SECONDS." 

2 #6:7 #63; "press [ewiia to" 

7 #6: "play againiN;s” 
IF STRIG(#®) THEN PORE 711,FEER (S53 
778) :GOTO 348 

RUN 

CHSET=(FEEE (186)-8) e256: FOR I=8 T 
O 7:POKE CHSET+1,@:NEXT I 

RESTORE 418 

READ A: IF A=-1i THEN RETURN 

FOR J=8 TO 7:READ B:FOKE CHSET+AX 
B+d,BsNEXT J 

GOTO 2388 


43 


38S 


4 


Part Two 


DATA 3,56,124,174,174, 254, 186, 48, 
S& 

DATA 4,56,124, 234, 234, 254, 184, 68, 
S& 

DATA 5,56,84, 214, 254, 254,1846,68,5 
& 

DATA 6,56,124, 254, 214, 214, 186,48, 
Sé 

DATA 1,255,255, 255, 255, 255, 255,25 
5, 265 

DATA 127,16, 24, 28, 39, 39,28, 24,16 
DATA —-1 

GRAPHICS 17:POKE 756, CHSET/256 
SC=FEEK (98) +256*PEEK (89) :SETCOLOR 
2,8, 

DIM A(3):A(@)=2:A(1)=-4G:A(2) =-2: 
A(3)=4%:WL=129:HL=G: TRAP 32767 
A=SC+21 

FOR I=1 TO 21:7? #6; " GEESE 
EE" = NEXT I:FOKE A,5 

J=INT (RND(1)%*4):X=d 

B=A+A (J) 

IF PEEK(B)=WL THEN FPOKE B,J+1:POK 
E A+A(J)/2,HL:A=B:GO0TO 539 
J=(J+1)*(3<3)2IF J<>X THEN 546 
J=PEEK(A):POKE A,HL:IF J<S THEN A 
=A-A(J-1):GO0TO 539 

RETURN 
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Blockade 


Douglas Pinho 


“Blockade” is an exciting two-player game that also demonstrates a 
simple joystick routine. 


Surround (or Blockade) was a popular arcade game in the 
early days of video games. The format of the game is not 
complex, but it is still enjoyable and challenging. The object 
of the game is to build walls to trap the opposing player and 
force him to collide with: his own walls, the opposing player's 
walls, or the boundaries of the playfield. When this occurs, 
the player who did not crash receives a point. Upon every 
collision, the walls of the player who crashed will blink. The 
screen is then cleared and the game continues. 

The first player to reach nine points is the winner. To start 
the next game, just press the fire button. To play, plug joysticks 
into the first two joystick ports (sticks 1 and 2). 


Program Description and Explanation 


Lines 1-2 set up the title display. Line 5 sets up a mixed 
graphics mode with one line of GR. 1 followed by one line of 
GR. 2 and 44 lines of GR. 5. START calculates the address of 
the display list in memory. This pointer is needed since the 
location of the display list depends upon the amount of 
memory installed in the Atari. The two POKEs then place in- 
structions for the desired graphics modes at the appropriate 
memory locations. Line 10 initializes the variables X and Y, 
the starting location of player 1, and S and T which give the 
location of player 2. Variables X1 and Y1 and S1 and Tl are 
the increment or decrement values for plotting the walls on 
the screen. F is a flag to determine whether there was a 
simultaneous collision between the two players. H1 and B1 
are used to keep score. Line 12 plots the boundaries of the 
playing field in blue. POKEing memory location 87 (current 
screen mode) with 5 directs the computer to plot in GR. 
mode 5. This is needed only in a mixed graphics mode. Line 
14 goes to a subroutine at line 300 which prints the score in 
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GR. 2 characters. Line 15 checks for the end of the game. 
Lines 20-120 contain the main game loop. Lines 25 to 43 
check for joystick movement and assign the move variable 
(X1, Y1, S1, Tl), and a value for P and L. One of the nice 
features of Atari BASIC is that you can use a variable as a 
GOSUB address. This feature is used in line 50 to branch to 





Try to outwit an opponent in “Blockade.” 


different subroutines depending upon the value of P (player 
1) and L (player 2). Note that in line 23 you must POKE 5 in- 
to memory location 87 again because it was changed during 
subroutine 300 (line 14). Lines 150 to 185 first check for a col- 
lision. If there is none, it plots the new block. A collision is 
found by locating the next position in front of the plotted 
block and finding its color. If the color is 0 (which is the 
background default color), it continues and plots the next 
block. If it is any other color, there is a collision. If the first 
player has collided, the program branches to line 201 to check 
for a simultaneous collision by the other player. Flag F is set 
if a simultaneous collision is found. Lines 210-220 update the 
score and blink the losing player’s walls. Subroutine 300 
prints the score at the top of the screen in GR. 2 characters. 
Subroutine 350 blinks the colors of the colliding player’s walls. 
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Lines 400-410 check if you want to start a new game (prints in 
GR. 1 characters). 

If you haven't played “Blockade” before, grab a friend and 
try it. It requires quick decisions and good strategy. You'll 
like it. 


Program 3-1. Blockade 


1 GRAPHICS 2+16:SETCOLOR 4,5,5:POSIT 
ION 6,5:PRINT #6; "BLOCKADE" 
2 FOR Di=1 TO &:FOR E1=8@ TO 89:SOUND 
1,£61,1@8,1@:NEXT E1sNEXT D1i:sSOUND 
1,9,9,9 
5S GRAFHICS 5+14:S5TART=PEEK (560) +PEEK 
(561) *256+4:FOKE START-1,71:FOQKE § 
TART+2,4 
1H X=132V=2352X1=1:2Y¥1=1:5=66:7T=235:51= 
—-1:T1=1:F=146@:L=176:F=8 
12 POKE 87,5:COLOR 3:FLOT @,3:DRAWTO 
8,44:DRAWTO 78,46:DRAWTO 78,3:DR 
AWTO @,3 
14 GOSUB 396 
1S IF Hi=9 OR Bi=9 THEN 48 
Zz B=STICK (@):H=STICK (1) 
2 SOUND 3,299,19,15 
23 FOKE 87,5 
2o IF B=14 THEN Yi=-1:F=154 
27 IF H=14 THEN T1=-1:L=189 
34 IF B=1i3 THEN Y1i=1:P=15@ 
32 IF H=13 THEN T1i=1:L=188 
35 IF B=7 THEN X1=1:F=16@ 
37 IF H=7 THEN S1i=1:Ll=17@ 
4@ IF B=1i THEN X1i=-1:F=168 
43 IF H=11 THEN Si=-1:L=i7¢ 
44 SOUND 3,1598,198,15 
58 GOSUB F:GOSUB L 
126 GOTO 248 
15@ Y=Y¥+Y¥i:COLOR i:LOCATE X,¥Y,Z:I1F Zz 
<>O8 THEN GOTO 281 
35 PLOT X,Y:RETURN 
16M X=X+X1i:COLOR 1:LOCATE X,Y,Z:I1IF Z 
<>@ THEN GOTO 21 
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PLOT X,Y:RETURN 

S=S+S51:COLOR 2:LOCATE S,T,U:IF U 
<3@ THEN GOTO 228 

PLOT S,T:RETURN 

T=T+T1i:COLOR 2:LOCATE S,T,U:IF U 
<3 THEN GOTO 226 

PLOT S,T:RETURN 

IF L=17@ THEN S=S+Si:FOSITION §S, 
T:LOCATE S,T,U:IF U<?@ THEN F=1 
IF L=18@ THEN T=T+T1i:FOSITION §S, 
T:LOCATE S,T,U:IF U<?@ THEN F=1 
GOTO 271@ 

SOUND 3,4,8,%:SOUND 1,194,14,14: 

FOR W=i1 TO 3@@:NEXT W:Bi=Bi+1:60 

SUB 34@:01=@:GOSUB 35@:SOUND 1,9 
,3,G 

IF F=i THEN GOTO 22% 

GOTO 5 

SOUND 3,4,8,@:SOUND 2,156,12,14: 

FOR W=1 TO 34@:NEXT W:H1=H1i+1:60 

SUB 3@8:01=1:GOSUB 35@:SOUND 2,9 
,8,8:GOTO 5 

POKE 87,2:FPOSITION 5,@:FRINT #64; 
Hi:POSITION 15,@:PRINT #6;CHR#(B 
1+16):RETURN 

FOR Fi=i TO 7:FOR Ui=1i TO 4@:NEX 
T Ui:rSETCOLOR @1,9,4:FOR Gi=1 TO 
4@:NEXT Gi:SETCOLOR @1,4,6:NEXT 
Pi:RETURN 

POKE 87,1:POSITION @,1:PRINT #64; 
"PRESS fire TO BEGIN!” 

IF STRIG(@)=8 OR STRIG(1)=@ THEN 
Hi=9:Bi=9:GOTO 5 

GOTO 495 








Tank Duel 


Tom R. Halfhill 


“Tank Duel” is a two-player action game requiring a pair of joy- 
sticks. Two program listings are included: standard Atari BASIC 
(16 RAM required), and BASIC A + (48K and BASIC A+ lan- 
guage required). Only the Atari BASIC version will run on an XL- 
model computer. 


Most video and computer games pit you against the com- 
puter itself. They also tend to be tests of reaction reflexes. So 
it’s no surprise that you, a mere human, are doomed to even- 
tual failure. Computers have a way to go before they catch up 
with people in all aspects of intelligence, but when it comes 
to response time, silicon beats protoplasm any day. 

That's why I’ve always enjoyed computer games that pit 
two people against each other. These games bring the full 
range of human characteristics into play, characteristics that 
are very difficult to program into a computer: real (as op- 
posed to “artificial”) intelligence; deception; skill that improves 
with experience; and emotions of excitement, frustration, and 
panic. The computer becomes the tool of interaction, the bat- 
tlefield of conflict, like a chessboard. The unique capabilities 
of a computer also allow it to act as a referee, by creating a 
stage for the contest which precludes any actions not sanc- 
tioned by the program. 


How to Play Tank Duel 


“Tank Duel” transforms the screen into a large battlefield oc- 
cupied by two tanks. Each player controls one of the tanks 
with a joystick. The tanks are fully maneuverable and armed 
with a cannon fired by pressing the joystick trigger button. In 
addition to the tanks on the screen, each player also has two 
extra tanks in reserve. When a player's on-screen tank is 
destroyed, it is automatically replaced by one of these reserve 
tanks. The object of the game is to survive: destroy all the 
enemy tanks before the enemy destroys yours. 

First, type the program listing carefully, especially the 
DATA statements. Some of these DATA statements contain 
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machine language subroutines, and a mistyped number could 
cause your computer to crash (the keyboard locks up and 
refuses to respond to your commands). If this happens, and 
the SYSTEM RESET key also locks up, the only way to 
recover is to turn the computer off and then on again. Of 
course, this means the program will be erased. So to be safe, 
save the program on disk or tape at least twice before run- 
ning it for the first time. Then if the computer crashes, you 
can turn the computer off and on to clear it, and simply 
reload the program to start looking for the mistake. 

Also make sure to type in the correct program listing. If 
you are using the standard Atari BASIC cartridge, type the 
Atari BASIC version. The other version is for people with 
BASIC A+, an advanced BASIC on disk that requires 48K 
(see “Technical Details,” below). 

When you're ready to play, type RUN and press 
RETURN. A title screen appears for 30 seconds while the pro- 
gram initializes (sets itself up). When the battlefield appears 
and you hear the low rumble of two idling tank engines, the 
game is ready to start. 

Here’s how the joystick controls work: to rotate a tank in 
place, move the stick right or left. Moving the stick right 
rotates the tank clockwise, and moving the stick left rotates 
the tank counterclockwise. Pushing the joystick forward drives 
the tank in whichever direction it’s pointed. If these joystick 
controls sound familiar, it’s because they are almost identical 
to the way you manipulate the spaceship in the Atari com- 
puter version of Asteroids. The only difference is that pulling 
backward on the joystick does not flip your tank into 
hyperspace! 

The battlefield, surrounded by a screen border, is dotted 
with trees, houses, and other buildings of varying shapes and 
sizes. Note that you can drive your tank behind trees for con- 
cealment, but that you cannot drive through buildings (your 
tank just bounces off). You also cannot drive through the 
screen border. And if you try ramming the enemy tank, your 
own tank blows up, so forget about kamikaze charges. 

To fire your tank’s cannon, press the joystick trigger but- 
ton. The gun’s range is limited to about two-thirds the breadth 
or height of the screen. 

When a player's tank is destroyed, action stops for a few 
seconds while it is replaced by one of the reserve tanks. The 
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number of tanks each player has in reserve is indicated by the 
tank symbols in the lower left and right corners of the screen. 
Each time a player’s tank is blown up, one of these tank sym- 
bols is replaced by a tiny cross. 

Just to make the game a little more interesting, there is 
another hazard besides the enemy tanks — minefields. Every 
game, a minefield — with four mines — is planted at random 
somewhere on the battlefield. The minefield is about an inch 
square and is invisible. The only way you'll know that you 
found a minefield is when your tank blows up. (Hint: 
minefields are planted in otherwise empty space, never 
beneath trees, so you're safe in the forest.) 

When all three of one player’s tanks are destroyed, the 
game ends. The winner's tank flashes colors for a few 
seconds, and then the battlefield disappears. A screen 
message explains how to start a new game of Tank Duel by 
pressing either joystick trigger button. 


Technical Details: BASIC A + 


Tank Duel originally was written, not in Atari BASIC, but in 
BASIC A +. If you’re not familiar with BASIC A +, it’s an 
enhanced version of Atari BASIC produced by Optimized 
Systems Software, Inc., of Cupertino, California. At this 
writing, BASIC A + is available only on disk, although a car- 
tridge version is being planned. The disk version requires at 
least 32K of memory (48K recommended). BASIC A + is up- 
ward compatible with Atari BASIC, which means any program 
written in Atari BASIC will run in BASIC A+ (and will run 
faster, since BASIC A+ is more streamlined). However, most 
programs written in BASIC A+ will not run in Atari BASIC. 

Why was BASIC A+ my first choice? Because this pro- 
gram was my first attempt to use some of the Atari’s special 
features such as player/missile graphics and redefined 
characters. This was easier done in BASIC A+ than in Atari 
BASIC. 

When standard Atari BASIC was created, it was decided 
to fit the whole language into a single cartridge within only 
8K of memory. Although Atari BASIC has many powerful 
features (i.e., instant syntax checking, unlimited-length strings, 
built-in commands for graphics and sound, etc.), it lacks 
special commands for more advanced features such as 
player/missile graphics. P/M graphics, known on some other 
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home computers as “sprites,” allows you to create shapes and 
move them around the screen without disturbing other screen 
objects. It’s also easy to determine if a P/M object is colliding 
with any other objects. This makes P/M graphics a powerful 
feature for games. 

However, since Atari BASIC lacks built-in P/M commands, 
this feature is hard to learn and use. That’s where BASIC A + 
really shines. It has many more commands than Atari BASIC, 
including keywords such as PMGRAPHICS, PMCOLOR, and 
PMMOVE. I found it much easier to learn P/M graphics with 
these commands than to struggle with the many POKEs 
necessary in Atari BASIC. To see for yourself, compare the 
BASIC A+ program listing with the Atari BASIC listing. 

After finishing Tank Duel in BASIC A +, though, I de- 
cided to translate it into standard Atari BASIC. Why? For one 
thing, I wanted to give copies of the game to a few friends 
who did not have BASIC A+. Second, the program could not 
have been published in this book unless it appealed to the 
widest possible range of readers, and only a minority of Atari 
users have BASIC A+. And finally, I wanted to learn how to 
use P/M graphics and other special features in my computer's 
standard language, Atari BASIC. However, writing Tank Duel 
first in BASIC A+ was a valuable experience. It introduced 
me to some of the Atari’s advanced techniques in a more 
friendly way. 

So if we have an Atari BASIC translation that anyone can 
use, why are we including the original BASIC A+ version 
here? For two reasons: Atari users unfamiliar with BASIC A + 
can compare the two listings to see the differences, and peo- 
ple who already own BASIC A+ can type in that listing and 
take advantage of the language's superior features. The BASIC 
A+ version still runs a little faster and more smoothly than 
the Atari BASIC translation. Note that this is despite the fact 
that the Atari BASIC version includes two machine language 
subroutines to speed up the animation, while the original 
version is pure unadulterated BASIC. 


Streamlined Programming 


If you are interested in trying some game programming 
yourself, there are a few tricks you can learn by studying 
these program listings. (For the rest of this discussion, we'll 
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The beginning of the “Tank Duel.” 


assume you have some fundamental understanding of Atari 
BASIC.) 

Tank Duel was programmed with two goals in mind: to 
make it run as fast as possible in BASIC, and to consume as 
little memory as possible. When writing any program that 
may be published or given to others, it is a good idea to 
make it workable on minimum systems so the widest possible 
range of people can use it. Tank Duel fits in 16K, which is 
the minimum Atari system that has been sold recently. 
Several techniques were used to make the program compact 
and fast. Note that not all of these are considered good pro- 
gramming techniques in programs which do not have to meet 
such requirements. 

REM statements are kept to a minimum to save memory. 
To make up for this somewhat, most of the variable names 
are not meaningless single letters, but rather short words 
which mean what they do. (Luckily, Atari BASIC allows very 
long variable names.) For instance, the string variable 
SHAPE$ holds the player shape data; MISSILE$ holds the 
missile shape data; HORIZ is the player horizontal position 
value, and VERT is the vertical value; MHORIZ is the missile 
horizontal value; and so on. This doesn’t consume as much 
memory as you might think, because Atari BASIC stores 
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variables as short tokens internally after the first occurrence. 
What's more, it’s really helpful to have meaningful variables 
when you stop working on a program for a few days and 
come back later. 

Another way of saving memory, and speeding up execu- 
tion, is to pack as many statements on a program line as will 
fit. 

Also, look at the Atari BASIC listing and notice how the 
program is structured (the BASIC A+ version is structured 
somewhat differently). Many people group their subroutines 
at the bottom of the program. But when Atari BASIC en- 
counters a GOSUB, it starts at the top of the program and 
searches downward for the target line number. Subroutines 
which are called often, and which need to be executed fast, 
should be grouped at the top of the program. In Tank Duel, 
the subroutines for moving tanks (lines 1000-1180), firing shots 
(lines 2000-2200), and checking for hits (lines 4000-4820) are 
placed above the “main loop” (lines 10040-10900). The subrou- 
tines for initialization (setting up the program) are tucked 
away beneath the main loop. Many of these lines are ex- 
ecuted only once, when the game is first run. 


A Little Machine Language 


As mentioned, the BASIC A+ version of Tank Duel was fast 
enough to get along fine all by itself. But the Atari BASIC 
version needed a little help from machine language. 

Since machine language, not BASIC, is actually the 
language which the computer uses internally, programs writ- 
ten directly in machine language do not have to be inter- 
preted by the computer and always run much faster. Unfor- 
tunately, machine language is the hardest language for 
humans to master. Tank Duel needed machine language for 
two things: to rotate the tanks, and to move the tanks ver- 
tically and diagonally (the Atari has built-in provisions for 
easily moving P/M objects horizontally, but not for moving 
them in any other direction). When I wrote Tank Duel, I 
knew absolutely nothing about machine language. The solu- 
tion was to use two machine language routines published in 
COMPUTE!. These are “canned” routines; that is, you can be 
totally ignorant about machine language and still use them. 
Since they are very short and very handy, let’s review them 
briefly here. 
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The first one allows fairly fast vertical and diagonal move- 
ment. It originally appeared as “Adding High-Speed Vertical 
Positioning To P/M Graphics,” by David H. Markley, in COM- 
PUTE!, December 1981. It was reprinted in COMPUTE!'s First 
Book of Atari Graphics. To use this routine in your own pro- 
grams, copy lines 11100-11160 from the Atari BASIC listing. 
The DATA statements are decimal equivalents of the machine 
language instructions; type them very carefully. Line 11160 
POKEs the routine into page six, an area of free memory in 
the Atari. 

This routine requires that the first number in the DATA 
statement which defines the shape of your player be equal to 
the height of the player. For example, look at line 12020. This 
DATA statement defines the shape of a tank facing “north” 
(up). There are nine numbers in the DATA statement. The 
first number is an eight because the player shape is eight 
bytes high. The following eight numbers are the eight bytes 
(the second and third numbers just happen to be eights by 
coincidence). If the player were ten bytes high, the DATA 
statement would contain 11 numbers — a ten followed by the 
ten bytes. 

To call this routine, use this statement: 


A =USR(1536,SHAPE,CURRENT LOCATION, NEW 
LOCATION) 


“A’ is a dummy variable which doesn’t mean anything, 
but is required by the syntax of the USR statement. There are 
four parameters in the parentheses of the USR statement. The 
first parameter is the address of the machine language routine 
itself; 1536 is the start of page six. The next parameter is the 
address of the player shape. Tank Duel stores the player 
shapes in SHAPE$ and uses the ADR function to find the 
address. The third parameter is the player’s current location, 
the actual memory address of the vertical position. The last 
parameter is the new location, the memory address of the 
vertical position to which you want to move the object. 

For an example, see the first statement in line 4200: 


A =USR(1536, ADR(SHAPE$(64)), VERT, VERT +2) 


The ADR function finds the address of the substring 
starting at SHAPE$(64). This is where the player shape that is 
being moved is stored. Remember that the first number in 
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this shape is an eight, the height of the player. The third 
parameter, VERT, is a variable containing the memory address 
of the player's vertical position (it is an offset from PMBASE). 
The last parameter tells the routine to move the player to 
VERT +2, or two notches down the screen (shifting a player up 
in memory moves it down the screen, and vice versa). 


P/M Metamorphosis 


The second machine language routine in the Atari BASIC ver- 
sion of Tank Duel allows you to instantly change a player's 
shape. This is how the tanks rotate; the rotation is really an 
illusion. Actually there are eight different tank shapes stored 
in SHAPE$, one for each direction a tank can face. Pushing 
the joystick right or left calls this routine and draws the ap- 
propriate shape. 

The routine originally appeared in the article “Extending 
Player/Missile Graphics,” by Eric Stoltman, COMPUTE!, Octo- 
ber 1981, and also was reprinted in COMPUTE!s First Book of 
Atari Graphics. To use this routine in your own programs, 
copy lines 11180-11220. The DATA in line 11220 is the machine 
language, and line 11200 stores the routine in a string called 
MOVES, since we already used page six for the other routine 
(although there was plenty of room left). The variable MOVE 
is the address of MOVE$, making it easier to call the routine 
later. 

Like the previous routine, this one also needs to know 
the height of the player. It handles this differently, though. It 
stores the player’s height in the 22nd number of the DATA 
statement. Notice that this is an eight. For a ten-byte player, 
you would change this number to a ten. 

Call the routine with this statement: 


A =USR(MOVE,CURRENT LOCATION,SHAPE) 


“A’ is the usual dummy variable. This routine uses only 
three parameters in the USR statement. The first is the 
address of the routine itself. Remember, we stored this 
routine in MOVE$ and set MOVE equal to the string address. 
You could replace MOVE with ADR(MOVES) and get the 
same effect. The second parameter is the actual memory 
address of the player's vertical position, just as required 
before. And the last parameter, SHAPE, is where the player's 
shape is stored, also as before. See line 4700 for an example. 
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If you intend to tackle some game programming with 
player/missile graphics, these two routines will be invaluable 
additions to your routine library. They are short, easy to use, 
and relatively fast. For a fuller explanation, be sure to look up 
the original articles. Since they were first published, they’ve 
been the basis of several fine games in Atari BASIC. 


Program 3-2. Tank Duel — Atari BASIC 


1@ REM *** TANE DUEL #xx* 

24 REM *xk ATARI BASIC VERSION 2 xxx 

38 REM *€Xxxk 

58 GOSUB ii1aa¢ 

6G GOSUB 12a@8¢ 

7% GOSUB i4ga¢ 

8G GOSUB i399 

94 GOTO iss 

1ga@ REM *x* MOVE TANES *xx 

182 ON HEADING GOTO 1@48,1@460,i1@80@,1 
196,1129,1148,1166,1196 

i948 A=-USR(1536, ADR (SHAFES(1)),VERT,V 
ERT-2) +: VERT=VERT-2Z: RETURN 

194 A=USR (1536, ADR (SHAPES (18)),VERT, 
VERT-2):FOKE HREG, HORIZ+2: VERT=V 
ERT-2:HORIZ=HORIZ+2: RETURN 

i@8@ POKE HREG,HORIZ+2:HORIZ=HORIZ+2: 
RETURN 

118@ A=USR (1534, ADR (SHAPES (28)), VERT, 
VERT+2):FOKE HREG,HORIZ+2:VERT=V 
ERT+2:HORIZ=HORIZ+2: RETURN 

1126 A=UISR(1536, ADR (SHAPES (37)), VERT, 
VERT+2) : VERT=VERT+2: RETURN 

1148 A=USR (i534, ADR (SHAPES (44)),VERT, 
VERT+2):POKE HREG,HORIZ—-2:VERT=V 
ERT+2:HORIZ=HORIZ—-2: RETURN 

1168 POKE HREG,HORIZ-2:HORIZ=HORIZ-2: 
RETURN 

118 A=USR(1536, ADR (SHAPES (64)),VERT, 
VERT-2):FOKE HREG,HORIZ—-2:VERT=V 
ERT-2:HORIZ=HORIZ—2: RETURN 

2000 REM *** FIRE MISSILES #€#x 
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TRAP 229@:FOR I=i5 TO @ STEP -1: 
SOUND 2,94,4,1:NEXT I 

A=USR (15346, ADR (MISSILES) , FMBASE+ 
384,MVERT):FOKE 77,@:0N HEADING 
GOTO 2446, 24469, 2088, 2190, 2120, 21 
46,2168, 27188 

POKE MREG,MHORIZ+4:FOR I=1 TO 15 
:A=USR (1534, ADR (MISSILES) ,MVERT, 
MVERT—4) :MVERT=MVERT-4:NEXT I 
A=USR (1536, ADR (MISSILES) ,MVERT,@ 
): RETURN 

POKE MREG, MHORI2Z+4:MHORIZ=MHORIZ 
+4:FOR I=i TO 15:A=USR(1534, ADR ( 
MISSILE#),MVERT.MVERT-3) 

POKE MREG,MHORIZ+3:MVERT=MVERT-2 
:MHORIZ=MHORIZ+3:NEXT I:A=USR{15 
36, ADR (MISSILES) ,MVERT,@):RETURN 
POKE MREG,MHORIZ+8:MHORIZ=MHORIZ 
+8:FOR I=1 TO 25:POKE MREG,MHORI 
Z+3:MHORIZ=MHORIZ+3:NEXT 1:POKE 
MREG, @ 

A=USR (1534, ADR(MISSILES) ,MVERT,@ 
): RETURN 

POKE MREG,MHORIZ+4:MHORIZ=MHORIZ 
+4:FOR I=i1 TO 15:A=USR(1536, ADR ( 
MISSILES) ,MVERT, MVERT+3) 

FOKE MREG,MHORIZ+3:MVERT=MVERT+3 
:MHORIZ=MHORIZ+3:NEXT I: A=USR(i5 
36, ADR (MISSILES) ,MVERT,@) : RETURN 
POKE MREG,MHORIZ+4:FOR I=1 TO 15 
:A=USR (1536, ADR (MISSILES) ,MVERT, 
MVERT+4) :MVERT=MVERT+4: NEXT I 
A=USR (1534, ADR (MISSILE#) ,MVERT,@ 
) :RETURN 

FOKE MREG,MHORIZ+2:MHORIZ=MHORIZ 
+3:FOR I=1 TO 15: A=USR(1536, ADR ( 
MISSILES) ,MVERT,MVERT+3) 

POKE MREG,MHORIZ-3:MVERT=MVERT+3 
:MHORIZ=MHORIZ—-3:NEXT I:A=USR(1i5 
36, ADR (MISSILE#), MVERT,@) : RETURN 
POKE MREG,MHORIZ:FOR I=1 TO 25:P 
OKE MREG, MHORIZ—-3:MHORIZ=MHORIZ-— 


2178 


2186 


21968 


2298 


AGaG 
AG? 
44a 


450 


42S a 


419@ 


4126 


414 


416 


Part Three 


YEXT IT:iPOQRE MREG, 

USR (1534, ADR PSL iL Ki muERiCe 
»}2RETURN 

PORE REG» BAGH L2SSs SHOT Z=MHORIZ 
+3:FOR [=i TOG i5:A=USR(i536, ADR I 
MISSILE#) ,.MVERT,MVERT—-2} 

FORE MREG,MHORIZ-2:MVERT=MVERT-—-2 
:MHORIZ=MHOGRIZ-S:NEXT I:A=USRC(1S 
ee ee ee 
A=USR(1526,AD0R (MISSILE#) ,MVERT,& 
}=RETURN 

REM *#** COGLLISIGNS ££ 

REM KK*¥ BUMP PLAYFIELD EX 

FORE biddeigs tage hnes HEADING GOTO 44 
69,4808, 4188, 41378, 41489,4168,4108 
, 4289 
A=USRCiSS6,ADR (SHAPER (13) ,VERT,V 
FRT+2) :VERT=VERT+2:G60TG 42208 
A=USRCiS246,ADR (SHAPES (14)),VERT, 
VERT+2):F0QKE HREG.HORIZ—-2: VERT=V 
FRT+2:HKORTZ=HORITZ—-2:G60TO 4226 
PORE HREG, HORT Z-2:HORIZ2=HORIZ-—-2: 
GOTO 42285 

A=USR 01526, ADR (SHAFER (283), VERT, 
VERT-2) :POKE HREG,HORIZ— 2:VERT= rv 
ERT-2:HORIZ= HORIZ—-2:60TO 422 
A=USR(15346, ADR(SHAPES (37)),VERT, 
VERT-2) : VERT=VERT-2:60TO 4220 
S=USR (1536, ADR (SHAFE$ (46)),VERT, 
VERT-2):sFOQKE HREG,HORIZ+2: VERT= 
ERT-2:HORIZ=HORIZ+2:G0TO 4220 
FORE HREG,HORI2Z+2:HORIZ=HORIZ+2: 
GOTO 422¢ 

A=USR (1536, ADR (SHAFES# (64)),VERT, 
VERT+2):POKE HREG,HORIZ+2: VERT= Vv 
ERT+2:HORIZ=HORIZ+2 

IF HREG=53248 THEN VERTS=VERT:HO 
RIZS=HORIZ:RETURN 
VERTI=VERT:HORIZi=HORIZ: RETURN 
REM *xk*k EXFPLOSTIQNS 
EXFLO=65:FOR VOL=14 TCO @ STEFF -2 
=>=SOUND #@.9°8,8,VOL:SGUND 1,1#04,4 
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VOL:FOKE FPLYR, 62 

A=USR (MOVE, VERT, ADR (SHAFES (EXFLO 

+9))) :EXPLO=EXPLO+9:FOR I=i1 TO 1 

S:NEXT I:NEXT VOL 

IF PLYR=784 THEN TANKS@=TANKG@-1 

IF PLYR=785 THEN TANKL=TANK1i-1i:6 

OTTO 472¢ 

IF TANE@=2 THEN POSITION 2,11:? 

#6;"X":GOTO 4698 

IF TANK@=1 THEN POSITION 1,11:7 

#4:"X":GOTO 446996 

POSITION 3,11:7 #46;"X":POP :GoTO 
is@ag 

FOR I=1 TO S@@:NEXT I: VERT@=PMBA 

SE+572:HORIZ@=4@:P0OKE PLYR,74:F0 

KE HITCLR,@:POKE 53248,HORIZ# 

O=USR (MOVE, VERTS, ADR (SHAPES (28) ) 
}:RETURN 

IF TANK1=2 THEN POSITION 17,11:? 
#6;°%X%":GOTQ 49a 

IF TANEK1=1 THEN POSITION 18,11:? 
#4:"X%":GOTO 4996 

POSITION 14,i1:7 #46;"X%":POP :GOT 

0 15986 

FOR I=i TO 5@@:NEXT I:VERTI=PMBA 

SE+79@:HORIZ1=185:FOKE PLYR,134: 

FOKE HITCLR,@:FOKE 53249,HORIZ1 

A=USR (MOVE, VERT1, ADR (SHAPES (54) ) 
): RETURN 

A=USR (MOVE, VERT@, ADR (SHAFES (28) 
)) :A4=USR (MOVE, VERT, ADR (SHAPES ( 
5S6))) 
X=INT (1@*RND (4) +1):Y=INT(C1@*RND 
(@J4ideL NCATE *%,¥.Z2IF 24332 TH 
EN 19815 

POSITION X,Y¥:2 #6: "w":TANK@=3:T 
ANEK1=3:1IF PEEK (S3252)=2 OR PEEK 
(53253)=2 THEN 19915 
HEADING@=3:HEADING1=7:SOUND 4,1 
89,4,3 
S@=STICK(9):Si1=STICK(1):1F S@= 
1 THEN HEADING#=HEADINGS@-1 


19G6G 
19g8@ 
1691986 
1G1298 
1146 
14166 
14186 
1H2a8o 
18246 


1a268 


14280 


14298 


igaga 


193146 


1Gsa2e 


19364 


Lavage 
14748 


Part Three 


IF Si=iil THEN HEADINGI=HEADINGI 
IF S@=7 THEN HEADING#=HEADINGS+ 
IF Si=7 THEN HEADING1I=HEADING1I+ 


IF HEADING@<1 THEN HEADING@=8 
IF HEADINGi<1 THEN HEADING1=8 
IF HEADING#?8 THEN HEADING#=1 
IF HEADING1?8 THEN HEADING1=1 
A=USR (MOVE, VERTS, ADR (SHAPES ¢ (HE 
ADING#-1) k8+HEADINGS+1))) 
A=USR (MOVE, VERT1, ADR (SHAPES ( (HE 
ADINGiI-1) *8+HEADINGI+1))) 
VERT=VERT@:HORIZ=HORIZ#:1IF STIC 
K(G)=15 AND STICK(1)=15 THEN SO 
UND 1,189,6,2 
IF STICK(@)=14 THEN SOUND 1,129 
»&, 6: HEADING=HEADINGS: HREG=5324 
S:FOKE HITCLR,@:GOSUB i#a@ 
VERTS=VERT:HORIZ@=HORIZ:IF PEEK 
(532527)=2? OR PEEK (53269)=2 THEN 
FLYR=7%4:GOSUB 45a@ 
COLL=PEEK(53252):IF COLL=1 ORC 
OLL=5 OR COLL=9 THEN HEADING=HE 
ADING#: HREG=53248: VERT=VERT@#:HO 
RIZ=HORIZ@:GOSUB 4490 
VERT=VERT1i:HORIZ=HORIZ1 
IF STICKE(1)=14 THEN SOUND 1,122 
.6, 6: HEADING=HEADING1I:HREG=532 
9:FPOKE HITCLR,@:GOSUB 19a 
VERT1=VERT:HORIZ1=HORIZ:1IF FEEK 
(S3253)=2 OR PEEK (53261)=1 THEN 
PLYR=795:GOSUB 45a¢@ 
COLL=PEEK (53253):I1F COLL=1 OR C 
OLL=5 OR COLL=9 THEN HEADING=HE 
ADING1:HREG=53249: VERT=VERTi:HO 
RIZ=HORIZi:GOSUB 49a@ 
IF STRIG(@)=1 THEN 19799 
POKE HITCLR,@:POKE 53252, 4:MVER 
T=VERT@—-5124+3844+3:MHORIZ=HORIZ@ 
—1:HEADING=HEADING@: MREG=53252: 


63 


ig7ad 
18766 


147868 
198268 


1g8éa 
1g8aeeq 


1g9aa 


Liga 


11ig2e 


1194¢ 


119468 


11989 


lilies 


Li tZ2g 


11148 


ps Ue en 8 


64 


Part Three 


GOSUB 2Hae 

PORE S3252,8:TRAP 400808 

IF FEEK(S3256)=2 OR FEEF CS3254} 
=3 THEN FPLYR=785: VERT=VERT1I1:G0S5 
UB 45408 

IF STRIG(1)=1 THEN 18944 

POKE HITCLR,@:PORKE 33253, 4:MVER 
T=VERT1—-649+384+3:MHORIZ=HORIZ1 
-1:HEADING=HEADINGI:MREG=S3253: 
GOSUB 2488 

FORE S3253,4: TRAP 4880 

IF PEEK (S3257)=1 OR PEEK (53257) 
=3 THEN PLYR=784: VERT=VERT&@: 605 
UB 458 

GOTO i8@44 

REM #*®** SETUP FM & ML ROUTINES 
xeK 

GRAPHICS 24+16:7 #6: "45 SPACES?t 
ank duel":7 #6: 7 #4; " 

£4 SPACES}PLEASE WAIT": 7 #6;" 
{3S SPACES} 3@ SECONDS" 

PM=FEER (1#4)-8:FOKE 54279,FM:FM 
BASE=256%FM: PORE 559,46:FOKE 53 
277, 35:FPORKE 623,4: FORE S3268,8:H 
ITCLR=53278 

FOR I=FPMBASE+384 TO FMBASE+764: 
PORE I,@:NEXT IsPORKE 74#4,74:FO0EF 
E 785,126: VERT@=PMBASE+S72: HORI 
Z2G@=608 
VERTI=PMBASE+7@@:HORIZ1=185:MVE 
RT=FPMBASE+394:FORE S3248,HORIZ& 
>FOKE 32249,HORIZ1 

REM VERTICAL POSITIONING ROUTIN 
E 

DATA 144,162,5,194,149, 228, 242, 
146,258,198, 278,198, 2227,168,08,17 
7,224,176 

DATA 168,165, 223, 248,9,1469,8,14 
5,222, 186,209, 249, 138, 168, 165,2 
Bi Pa, 7. 177, 224, 145, 228, 124, 28 
8,249,964 

FOR T[=1526 TO i1579:READ &:FCKE 


1189 
112964 


112268 


112496 
12aag 


120268 
12846 
120868 


124864 
12186 
121296 


12144 
12169 


12188 
122068 
Lose 
122496 
2268 


12288 
25088 
12328 
23468 
12369 


2588 
1249464 


13480 
13818 


Part Three 


I,A:NEXT I 

REM FLIP PLAYER SHAPE ROUTINE 
DIM MOVES (25) :MOVE=ADR (MOVES) :F 
OR I=1 TO 25:READ A:MOVES#(I,1)= 
CHR$(A):NEXT I 

DATA 194,164,133, 204,194,133, 26 
3,194,133, 297,194,133, 296,166,@ 
7177, 296,145, 293, 290,192,8,298, 
247,96 

RETURN 

REM x*x PLAYER SHAPES (CLOCKWIS 
E N-NE-E-SE-S-SW-W-NW & EXPLOSI 
ON) xkx¥ 

DATA 8,8,8, 42,62, 62, 62,62, 34 
DATA ooo al ee. Tos cea 68, 24,16 
DATA 8,9, 252,128,127,12 , 252.5, 
B 

DATA 8,16, 24, 69, 254,127,698, 26,9 
DATA 8,34, 62,62, 62, 62,42,8,8 
DATA 8,8, 24, 69,127, 254, 6%,98,14 
4 

DATA 8,9, 63,39, 254,38,463,9,6 
DATA 8,144,88, 6%, 254,127, 68,24 
8 

DATA 8,9,9,8,28,28,8,9,@ 
DATA 8,9,8,34,92, 2%,34,9,6 
DATA 8,8,65,4,168, 2%,1,64,8 
DATA 8,148,1,28,148,1,28,1,1 
DATA G6, 145, 74,32, 130,65, 2,84, 
7 

DATA St Ra ieee pr io de takai 
DATA 8,129,9,8,8,%,128,1, 46 
DATA 8,9,9,9, ml a .9,9 

DIM SHAFE# (i144) 

FOR I=1 TO i44:READ A:SHAPES(I, 
I) =CHRS(A):NEXT I 

DIM MISSILE#(2):MISSILE#(1,1)=C 
HR#(1):MISSILES (2, 2) =CHR#(5) 
RETURN 

REM *** PLAYFIELD SETUP x#x 
POKE 754, CHSET/256:FOSITION 4,@ 
2? #6;CHR$(125):POSITION 8,@ 


36 
13 


65 


13846 


138868 


S148 


13126 


12146 
31388 


13208 


132268 


13246 


13269 


144a¢ 
14424 


14848 
14946 
149868 


141090 
14126 


i4149 


14166 
1418 


66 


Part Three 


? #6: "1":COLOR ASC("M"):PLOT 1, 
@:DRAWTO 19,4:7 #6: "N":COLOR AS 
C("O")sPLOT 19,1: DRAWTO 19,11 
COLOR ASC("M"):PLOT 19,11:POSIT 
ION @,11:7 #63 "MYYMMMMMMMMMMMMM 
MZZ":COLOR ASC("V"):FLOT @,1@:D 
RAWTO @,1 

SETCOLOR @,2,1@:SETCOLOR 1,4,9: 
GETCOLOR 2,13,1@:SETCOLOR 3,12, 
8 

POSITION 4,1:7 #6; "2S a ewe 
POSITION 2,2:7 #6:"0{3 BEEWErasa 
rt Tu ts Ue 

POSITION 5,2:7 #6; "3 (= 
POSITION 7,4:7? #6; "3=ea” 
POSITION 6,5:7 #6; "(LJKF 

(4 STS i" 

POSITION 2,7:7 #6:"(" 

POSITION 4,8:7 #4; "BMF DEGHCME 
iT ite 

POSITION 4,9:7 #6:;"Ei5 HGGMHSre 
POSITION 3,19:7 #6:" 

{3 SGRIS=. GES ST) Ee" : 
RETURN 

REM **x REDEFINE CHARACTERS *#% 
CHSET=(PEEK (1@6)-4)*2546:FOR I= 
TO 512:POKE CHSET+1,PEEK (57344 
+I):NEXT I 

RESTORE 14126 

READ A:IF A=-1i1 THEN RETURN 

FOR J=8 TO 7:READ B:FOKE CHSET+ 
AXKB4+J3,B:NEXT J 

GOTO 149448 

DATA 33,9, 24, 69,126,255, 99,1726, 
g 

DATA 34,9,24, 69,126,195, 74,126,9 
DATA 35,62,42,62, 42,62, 42, 42,58 
DATA 36, 24, 24,50,44,124,99, 126, 
oa 


14200 
14226 
14246 


14268 


14286 


14324 


1423464 


142648 
i42eq@ 
14400 
14426 
144404 
14464 


i443a¢ 
i45a@ 
1452¢ 
14546 


1454668 
i4s58¢@ 
144648 


14684 
1LSaae 
15826 


1540 


Part Three 


DATA 37,9,%9,8,9,4, 255,118,974 
DATA 38,3,3,3,3,255,171, 255,171 
DATA 39,127,85,127,85,127,85,12 


7,184 
DATA 46,255,85,255, 85, 255,85, 25 
5,171 
DATA 41,16,56,48,56,49,124,198, 


DATA 42,136,178,178,176,178,17@ 
, 255, 255 
DATA 435,130,170, 170, 179,179,179 


24,254 
DATA 44,4,126,86,1246,36,126,86, 
84 





DATA 45, 255, 255,¢,0,09,8,2,@8 
DATA 44,255, 255,3,3,3,3,3,5 
DATA 47 Sy Bu 35 Sy By Sp Se 3D 

DATA 48, 3.553, 3,3, 5, 295,255 
DATA 49,9,9,9,8, 8, @, 255,255 
DATA 58,192,192,192,192,192,192 
y Hoes OS 

DATA 51,0,8,16,56,124, 6,8 


16,1 
DATA ae ee ee 
DATA 53,8, 28, 28,62,62,127,8,8 
DATA 54,192,192,192,192,192,192 
.192,192 
DATA 55,1, 
DATA 56,25 
DATA 57,25 
20,252 
DATA 58,255, 255,99, 463, 38, 254,39, 
63 

DATA 59,1 
DATA 61,2 
,192,192 
DATA -1 
REM *x*x RESET GAME *4*% 

FOR 1=255 TO ® STEF -2:SOUND @, 
1,18,6:POKE 744,1:POKE 7@5,1:NE 
XT I:SOUND 9,4,8,@:POKE 744,¢4:P 
OKE 745,¢ 

POSITION @,@:7 #6;CHR#(125):FO0K 


64,9,9,8,4%,2,128 
5,255,%,8,28,8,8,8 
S 


,255,8, 252,120,127, 


26 76, 48, 245 12s Gy. Sy 1 
SF 5 2 hed 192,192,192,192 
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15846 
1598 


15149 


Part Three 


E 756,224:POSITION 2,3:? #6;"TO 
PLAY AGAIN": ? #4;" 
UT T One 

? #6;"{4 SPACES?0N JOYSTICK" 

IF STRIG(@)=1 AND STRIG(1)=1 TH 
EN 15989 

POKE HITCLR, @:A=USR (MOVE, VERTS, 
ADR (SHAPE$ (137) )) :A=USR(MOVE, VE 
RT1, ADR (SHAPES (137))) 

POKE 794,74:POKE 795,136: VERTS= 
PMBASE+572: VERT1=PMBASE+799: MVE 
RT=PMBASE+384: HORIZ$=69: HORIZ1= 
185 

POKE 53248,HORIZ#:POKE 53249,HO 

RIZi:GOTO 8@ 


Program 3-3. Tank Duel — BASIC A+ 


ig REM 
28 REM 
36 REM 
48 GRA 
k d 

SE 
DS" 

96 GOS 
196 GO 
118 GO 
126 GO 
1860 RF 
1g1ig PF 
1426 I 
1 
19464 G 
1668 D 
Ss 
v 
1GBGtis 
) 
R 
kK 


68 


Ke TANEDUEL kkk 
OSS BASIC A+ VERSION 


PHICS 24+16:7 #63; "45 SPACES+tan 
uel": ? #6: 7 #6;"44 SPACES+PLEA 
WAIT": ? #63; "5 SPACES+36 SECON 


UB 13989 
SUB 9996 
SUB 399o 
TO 19998 
EM *k* PLAYER @ COLLISIONS *%x 
OKE 77,8 
F BUMP(@,1) OR BUMP(@,9) THEN 
BoB 
OoTO 122 
AT=57:FOR VOL=14 TO @ STEP -2: 
OUND %,98,@,VOL:SOUND 1,199,4, 
OL:PMCOLOR @,3,14 
SPACESIMOVE ADR (SHAPES (DAT+8) 
»~PMADR(@) +VERTS, 6: DAT=DAT+8:FO0 
I=1 TO S@:NEXT I:NEXT VOL: TAN 
S=TANKG-1 


11298 


114@ 


1168 


118@ 


1286 


12468 
1268 


1286 


1206 


2048 
2Gba 


2OB80S 


Part Three 


IF TANE@=2 THEN POSITION 2,11:? 
#4;"°X":GOTO 1189 

IF TANE@=1 THEN POSITION 1,11:? 
#6:"X":GOTO 11986 

IF TANK@<1 THEN POSITION 3,11:? 

#4: "X": POP :GOTO 1299 

FOR I=1 TO 19@@:NEXT I:VERT@=5¢ 
:HORIZ@=66:PMCOLOR @,4,4:PMMOVE 
@,HORIZS 

MOVE ADR(SHAPE$(25)),PMADR(S)+V 

ERT@,6:POKE 523278,4:RETURN 

IF BUMP(@,8) THEN POKE 53278,@: 
ON HEADINGS GOTO 1269,1288,1398 
~1328,1346,1368,1398,149 

PMCLR 4:GOTO 2846 

PMMOVE @;—-2: VERT@=VERT&+2: RETUR 
N 

PMMOVE @,HORIZ@—-2;-2:HORIZ@=HOR 
1276-2: VERT@=VERT@+2: RETURN 
PMMOVE @,HORIZ@#—-2:HORIZ#=HORIZS 

> RETURN 

PMMOVE #@,HORIZ@—-2; 2: HORIZ@#=HORI 
78-2: VERT#=VERT@—2: RETURN 
PMMOVE @; 2: VERT@=VERT@-2: RETURN 


PMMOVE @,HORIZ#+2; 2: HORIZ&#=HORI 
79+2: VERTG=VERTO—2: RETURN 
PMMOVE @, HORIZ9+2:HORIZ#=HORIZS 
+2:RETURN 

PMMOVE @,HORIZ9+2;—-2:HORIZ@#=HOR 
1Z7@+2: VERT@=VERTG+2: RETURN 

REM *k* PLAYER 1 COLLISIONS xxx 
IF BUMP (1,4) OR BUMP(1,9) THEN 
2046 

GOTO 222 

DAT=57:FOR VOL=14 TO @ STEP -2 
SOUND #,94,%,VOL:SOUND 1,189,4, 
VOL:PMCOLOR 1,23,14 

SPACES}MOVE ADR( SHAPES (DAT+8) 
), PMADR(1)+VERT1,6: DAT=DAT+8:FO 
R I=1 TO S@:NEXT I:NEXT VOL:TAN 
K1i=TANK1-1 


69 


3198 


3118 


70 


Part Three 


IF TANE1=2 THEN POSITION 17,11: 

7? #63 "X":GOTO 2186 

IF TANE1=1 THEN POSITION 18,11: 

? #63 °XK":GOTO 21896 

IF TANK1i<1 THEN POSITION 16,11: 

? #6; "X":POP :GOTO 12099 

FOR I=1 TO 1@696:NEXT I:VERT1I=59@ 

>HORIZ1=185:PMCOLOR 1,7,8:PMMOV 

E 1,HORIZ1 

MOVE ADR (SHAPES (57)),PMADR(1)+V 

ERTI,6:FPOKE 33278, a: RETURN 

IF BUMP (1,8) THEN PORE 532278,@4: 

ON HEADINGIL GOTO 2266, 2280, 2300 

225268, 23408, 2269, 23589, 2499 

PMCLR 3:GOTO 19698 

PMMOVE 13-2: VERTI=VERT1+2: RETUR 

N 

PMMOVE 1,HORIZ1—2; —-2:HORIZ1=HOR 

IZ1-2: VERTI=VERT1+2: RETURN 

Biclpadtes 1,HORIZ1-2: HORIZ1=HORIZ1 
: RETURN 

PMMOVE 1, HORTZi— gine ida =HORI 

Z1-2: VERT1=VERT1-2: RETURN 

PMMOVE 1; 2: VERT1=VERT1—2: RETURN 


PMMOVE 1, HORIZ1+2; 2: HORIZ1= HORI 
Z1+2: VERT1=VERT1-2: RETURN 
PMMOVE 1, HORIZ1+2:HORIZ1=HORIZ1 
+2:RETURN 

PMMOVE 1,HORIZ1+2;—2:HORIZ1=HOR 
1Z1+2: VERT1I=VERT1+2: RETURN 

REM *** PLAYFIELD SETUP xxx 

? #6;CHR$(125):POSITION @,4:PO0K 
E 756, CHSET/256 

? #6;"1":COLOR ASC("M"):PLOT 1, 
O:DRAWTO 19,@:? #6;"N":COLOR AS 
C("O"):PLOT 19,1:DRAWTO 19,11 
COLOR ASC("M"):PLOT 19,11:POSIT 
ION @,11:?7 #4; "MYYMMMMMMMMMMMMM 
MZZ":COLOR ASC("V"):PLOT @,19:D 
RAWTO @,1 

SETCOLOR 6,2,19:SETCOLOR 1,4,@: 


Re ae ae 
FASB 


928 
984 
9868 
9888 
91406 
Gi2g 
9146 
91468 


9189 
288 
9228 
9248 
92668 
9289 
eee 202) 
93268 
D246 
9268 


Part Three 


SETCOLOR 2,13,1@:SETCOLOR 3,12, 
8 
POSITION 4,1:7 #6; "Saar 


POSITION 2,2:?7 #6;"EK2 AGM a 
it Tu UtS ie 

POSITION 5,3:? #6;" 2 (rw 
POSITION 7,4:? #6; "Sean" 
POSITION 3,5:7?7 #6;"AZz£ 

{3 SLCISS Ge" 

POSITION 6,6:? #6; "([LJKF 

(4 AGES? i" 

POSITION 2,7:7 #6; "" 

POSITION 2,8:? #6;"B" 

POSITION 6,9:? #6; "FDEGHC REE i 
Aa" 

POSITION 3,19:? #6; "(me 

(19 SGA S?. a” 

RETURN 

REM **xk PLAYER SHAPES (CLOCKWIS 
E N-NE-E-SE-S-SW-W-NW & EXPLOSI 
ON) xkx 


DATA 8,8,42, 62,62, 62, 62, 34 
DATA 9, 26, 68,127,254, 6%, 24,16 
DATA 6, 252,128,127,129,252,9,9 
DATA 16,24,64,254,127,66,26,9 
DATA 34,62, 62,62,62,42,9,8 
DATA 8, 24,648,127, 254,469,88,144 
DATA 6,63,39,254,39,635,9,8 
DATA 144,88, 68,254,127, 48,24,8 


DATA @,%,8,28,28,8,4,@ 
DATA 6,8,34,92,26,34,8,@8 

DATA 8,65,4,148, 28,1,64,8 

DATA 148,1,29,1466,1,28,1,136 
DATA 145,74,32,139,65, 2,894,137 
DATA 72,1,64,9,139,1.8,82 

DATA 129,9,6,9,8,128,1,66 

DATA 8,9,9,8,8,8,5,8 

DIM SH#(1),SHAPE$ (128) 


RESTORE :FOR I=1 TQ 128:READ SH 
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9388 
1GGGS 


1GG25 


19639 


19922 


19G234 


1Bag4e 


1SdHSh 
1SDBS 
1G189 
1B185 
19116 
1Hi2oH 
19148 
19168 
19188 
1H208 


14225 


72 


Part Three 


APE: SH$=CHR# (SHAPE) : SHAPES(1,1) 
=SH#:NEXT I 
RETURN 

PMGRAPHICS 2:PMCLR @:PMCLR 4:P 
MCLR 1:PMCLR S:PMCOLOR @,4,6:P 
MCOLOR 1,7,8:POKE 623,4 
VERTS=59: VERT1=5@: HORIZ@=49:HO 
RIZ1=1985: TANKG=3: TANK1=3: PMMOV 
E @,HORIZ@:PMMOVE 1,HORIZ1 
MOVE ADR(SHAPE$(9)),PMADR(@)+V 
ERT@,6:MOVE ADR(SHAPES(9)),PMA 
DR(1)+VERT1,6:MINES=6 
X=INT(1i8*RND(@) +1): Y=INT(1@*RN 
D(@)+1):LOCATE X,Y,Z:IF Z<>32 
THEN 19632 

POSITION X,Y:? #63;"w":IF X=1 0 
R X=2 OR X=17 OR X=18 AND Y=4 
OR Y=5 THEN POSITION X,Y:? #6; 
" "GOTO 19932 

PMCLR S:H@=HSTICK(@) :Hi=HSTICE 
(1) : HEADING®=HEADINGS+H@: HEADI 
NGi=HEADINGiI+H1i:IF HEADING®<1 
THEN HEADING#S=8 

IF HEADINGiI<1 THEN HEADING1=8 
IF HEADING#®>8 THEN HEADING@=1 
IF HEADING1>8 THEN HEADINGIi=1 
POKE 53278,8 

ON HEADING® GOTO 18128,16148,1 
$168,18188,102700,19228,19248,1 
B26B 

MOVE ADR(SHAPE$(1)),PMADR(@) +V 
ERTS,6:GOTO 19289 

MOVE ADR(SHAPE#(9)),PMADR(@)+V 
ERT®S,7:GOTO 192789 

MOVE ADR(SHAPE#(17)),PMADR(G) + 
VERTS,6:GOTO 19278@ 

MOVE ADR(SHAPE#(25)),PMADR(@) + 
VERT®S,6:GOTO 19286 

MOVE ADR(SHAPE$(33)),PMADR(@) + 
VERTS,6:GOTO 192989 

MOVE ADR(SHAPES$(41)),PMADR(G) + 
VERTS,7:G0TO 192989 


1SBS8H 


1932 


14346 


19389 


1849 


1g426 


144264 


18446 


18445 


19456 
18469 


18489 


Part Three 


MOVE ADR(SHAPE#(49)),PMADR(G) + 

VERT®S,6:GOTO 1927388 

MOVE ADR(SHAPE$(57)),PMADR(G) + 

VERTG,6& 

IF BUMP (@,1) OR BUMP(&,9) THEN 
GOSUB 199% 

ON HEADING! GOTO 14388,18326,1 

G34G,19366,19286,16490,1842768,1 

BASH 

MOVE ADR(SHAPE#(1)),PMADR(1)+¥V 

ERT1,6:GOTO 19446 

MOVE ADR(SHAPE#(9)),PMADR(1)+4+V 

ERT1,7:GOTO 19448 

MOVE ADR(SHAPE$(17)),PMADR(1)+ 

VERT1,4:GOTO 16446 

MOVE ADR(SHAPES(25)),PMADR(1)+ 

VERT1,6:GOTO 19446 

MOVE ADR (SHAPE$(33)),PMADR(1)+ 

VERT1,6:GOTO 19446 

MOVE ADR(SHAPE#(41)),PMADR(1)+ 

VERT1,7:GOTO 19446 

MOVE ADR(SHAPE#(49)),PMADR(1)+ 

VERT1,6:GOTO 16446 

MOVE ADR(SHAPE#(57)),PMADR(1)+ 

VERT1,6 

IF BUMP (1,9) OR BUMP(1,9) THEN 
GOSUBR 2999 

IF VSTICK(@)=1 THEN SOUND 1,12 

S,46,6:0N HEADINGS GOTO 1944¢,1 

489,19590,19520,19540,19549,1 

G5BSD,1G469B 

SOUND 1,18%,5,3:GOTO 19429 

PMMOVE @;2: VERTS=VERT@-2:GOTO 
1H4629 

PMMOVE @,HORIZ@+2; 2:HORIZ#=HOR 
1Z7@+2:VERTS=VERT@-2:GOTO 184628 

PMMOVE @,HORIZ#+2:HORIZ#=HORIZ 
G+2:GOTO 19626 

PMMOVE @,HORIZ@+2;—-2:HORIZ#=HO 

RIZ@+2: VERTS=VERTS+2:GOTO 164626 

PMMOVE @;-2:VERT#=VERT@#+2:G0TO 
1G426 
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183568 


1a5eH 


1H6aen 


1A628 


1@ 


1HS638 
18548 


18668 


1iméseg 


is7Aag 


18729 


18748 


18768 


18788 


1sBag 


18885 


1GB1G 
19826 


74 


Part Three 


PMMOVE @,HORIZ#-2;—2:HORIZ#=HO 

RIZ#-2: VERT@=VERT#+2:GOTO 186? 

3] 

PMMOVE @,HORIZ#-2:HORIZ@#=HORIZ 

@-2:GOTO 194296 

PMMOVE @,HORIZ@#-2; 2:HORIZ@=HOR 
IZ@-2: VERT#=VERTS-2 

IF BUMF(@,1) OR BUMP(S,8) OR B 

UMF(%,9) THEN GOSUB 1966 

IF VSTICK(1)=1 THEN SOUND @,12 

,6,6:0N HEADINGI GOTO 1%646,1 

A66%,109688,1978G,1972G6,18748,1 

A7&S,1G878H 

SOUND @,18%,6,2:G0TO 19869 

PMMOVE 1;2:VERT1=VERT1-2:GOTO 
1G8aSH 

PMMOVE si car elena ast =HOR 
1Z1+2:VERTiI=VERT1-2:G0TO 199896 

PMMOVE 1, HORIZ1+2:HORIZ1=HORIZ 
1+2:GOTO 1998998 

PMMOVE 1,HORIZi+2;—-2:HORIZ1=HO 

RIZ1+2:VERTI=VERT1+2:G0TO 1986 

a 

PMMOVE 1;-2:VERTI=VERT1+2:GOTO 
1g8aG 

PMMOVE 1,HORIZi-2;-2:HORIZ1=HO 

RIZi—-2:VERTI=VERT1+2:G0TO 1980 

9) 

PMMOVE 1,HORIZ1-2:HORIZ1=HORIZ 
1-2:GOTO 1#89% 

PMMOVE 1, HORIZ1-2; 2: HORIZ1=HOR 
IZ1-2:VERT1I=VERT1-2 

IF BEMIS pas OR BUMP(1,8) OR B 

UMP (1,9) THEN GOSUEB 299@ 

IF STRIG(#)=@ THEN POKE 53278, 

@:MHORIZ=HORIZ@:FOR I=15 TO @ 

STEP -1:SOUND 2,90,4,1:NEXT I: 

GOTO 19826 

GOTO 11989 

ON HEADINGS GOTO 19849,16868,1 

G88G,1G968,19928,19948,19969,1 

BIH 


18844 


1f868 


1g889 


1H9HOD 


14926 


149496 


1Ad960 


1f98a 


Lidae 
11g1¢@ 


L1ig2g¢g 
11446 


11g604 


1149798 


11128 


11158 


Part Three 


MISSILE @,VERT®,1:PMMOVE 4,MHO 
RIZ+3;5@:GOTO 1199@ 

MISSILE @,VERT@,1:FOR I=2 TO 4 
@® STEP 2:PMMOVE 4,MHORIZ+4+1;2 
:NEXT I:GOTO 11996 

MISSILE @,VERT@+3,1:FOR I=2 TO 
58 STEP 2:PMMOVE 4,MHORIZ+I:N 
EXT I:GOTO 119986 

MISSILE @,VERT@#+4,1:FOR I=2 TO 
46 STEP 2:PMMOVE 4,MHORIZ+3+1 
:-2:NEXT I:GOTO 11996 

MISSILE #,VERT@+4,1:PMMOVE 4,™ 

HORIZ+3;-59:GOTO 1199 

MISSILE 9, VERT#+4,1:FOR I=2 TO 
46 STEP 2:PMMOVE 4,MHORIZ+2-I 
>-2:NEXT I1:GOTO 11996 

MISSILE @,VERT@#+3,1:FOR I=2 TO 
5@ STEP 2:PMMOVE 4,MHORIZ-I:N 

EXT I:GOTO 119896 

MISSILE @,VERT@+3,1:FOR I=2 TO 
49 STEP 2:PMMOVE 4,MHORIZ+3-I 
:2:NEXT I 

IF BUMP (4,1) THEN GOSUB 1999 

PMCLR 4:IF STRIG(1)=@ THEN POE 
E 53278,@:FOR I=15 TO @ STEP - 
1:SOUND 2,94,%,1:NEXT I:GoOTO 1 
1a46 

GOTO i946 

ON HEADING1 GOTO 11969,11896,1 
1126,11159,11189,11219,11246,1 
1278 

MISSILE 1,VERT1,1:PMMOVE 5S,HOR 
IZ1i+3;58:GOTO 11396 

MISSILE 1,VERT1,1:FOR I=2 TO 4 

® STEP 2:PMMOVE 5S,HORIZ1+46+1;2 
>:NEXT I:GOTO 11398 

MISSILE 1,VERTi+3,1:FOR I=2 TO 
58 STEP 2:PMMOVE 5S,HORIZiI+I:N 

EXT 1:GOTO 11396 

MISSILE 1,VERT1+4,1:FOR I=2 TO 
48 STEP 2:PMMOVE 5S,HORIZ1+3+1 
>-2:NEXT 1I:GOTO 11396 


Was) 


11188 


12666 
12686 


12108 
13008 


12826 
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MISSILE 1,VERT1+4,1:PMMOVE 5,H 
ORIZ1+3;-5@:GOTO 113989 

MISSILE 1,VERT1+4,1:FOR I=2 TO 
46 STEP 2:PMMOVE 5,HORIZ1+2-I1 
;-2:NEXT I1:GOTO 11399 

MISSILE 1,VERT1+3,1:FOR I=2 TO 
5@ STEP 2:PMMOVE 5,HORIZ1-I:N 

EXT I:GOTO 11398 

MISSILE 1,VERT1+3,1:FOR I=2 TO 
46 STEP 2:PMMOVE 5S,HORIZ1+3-I 
;2:NEXT I 

IF BUMP (5,4) THEN GOSUB 2996 
GOTO 19844 

REM ***k RESET GAME ¥** 

FOR I=255 TO @ STEP -2:SOQUND @ 
.1,18,6:POKE 744,1:POQKE 75,1: 
NEXT I:SOUND @,@,4,@:POKE 784, 
@:POKE 785,@ 

POSITION @,@:? #4;CHR#(125):F0 
KE 756,224:POSITION 2,3:7? #6;" 
TO PLAY AGAIN":? #6;" GSE 

TRE BUTTONS 

? #6;"{5 SPACES}ON JOYSTICK" 
IF STRIG(@)=1 AND STRIG(1)=1 T 
HEN 129989 

GOTO iia 

REM *** REDEFINE CHARACTERS ** 
x 

CHSET= (PEEK (1846)-8)*256:FOR I= 
@ TO 5Si2:POKE CHSET+1I,PEEK(573 
sec tea eet E: 

RESTORE 13825 

READ A:IF aed THEN RETURN 

FOR J=@ TO 7:READ B:POKE CHSET 
+AXG+3,B:NEXT J 

GOTO 13822 

DATA 33,9, 24, 69,126, 255,998,126 
2 

DATA 34,6, 24,69,124,195,74,126 
oH 
DATA 
8 


ted 


iS, 62, 42,62, 42, 62,42,62,5 


ee el 
tea tel ted te ted ted 


12845 
1S8H46 


135@47 
iza4g 
13849 
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DATA 36,24, 24,68,44,126,96,126 
98 

DATA 37,9,9,8,9,4,255,118,94 
DATA 38,3,353,3, 255,171, 255,17 
1 

DATA 39,127,85,127,85,127,85,1 
27,186 

DATA 46,255,985, 255,95, 255,985,2 
55,171 

DATA 41.16,56,48,56,48,124,188 
,238 


DATA 42,136,1746,178,178,178,17 


6,255, 255 

DATA 43,134,178,178,178,178,17 
6,254,254 

DATA 44,4,126,86,126,86,1245,86 
86 

DATA 45, , .8,8,8,@ 


DATA 46, 
DATA 47, 
DATA 48, 
DATA 49, 
DATA Sf, 


ar 2 PCI ig pia 


ae 
2 
#3 
1 
as Se 
DATA Si, 8,8,16,56,124,146,16,6 
8 
8 
1 
1 


h 
Ul 


J Qty ty OL 





DATA 52,8,28,62,127,62,8,8,8 
DATA 53,8, 28, 28, 627,62.127,.8,8 
DATA 54,192,192,192,192,192,19 
5,192,192 

DATA 55,1,64,9,9,8,8,2,128 
DATA 56, 255,255,4,9, 28,9,8,8 
DATA 57,255, 255,98, 252,120,127, 


124,252 

DATA 38,255, 2595,98, 63, 28, 254, 28 
1Oo5 

DATA 39,192,96,48,24,12,4,2,1 
DATA 61,255,255, 192,192,192,19 
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Pick-up Sticks 


This game demonstrates that good games can be written completely 
in BASIC. “Pick-up Sticks” doesn't even use the statements PEEK or 
POKE. 


“Pick-up Sticks” requires two players. Each player uses one 
joystick. The screen displays 15 sticks and two players. The 
players will appear at random, but always immediately beside 
each other. A stick will begin to flash, indicating that it is the 
next target. The first player reaching the stick gets the point. 
The player who has the most points, when all 15 sticks are 
gone, wins. A complication is that if both players reach the 
stick at the same time, no one gets the point. Since both 
players start out at virtually the same place on the screen, 
this can play a deciding role. 

You'll notice that when a player moves, he leaves a trail 
behind him. This does not affect the game. But it does let 
you draw pretty pictures if you like. 


No PEEKs or POKEs 


One of the first things I discovered about my computer was 
that Atari 8K BASIC is slow. It is so slow, in fact, that many 
games cannot be written without PEEKs or POKEs. And 
when it comes to moving images or players across a playfield, 
nothing comes in handier than a POKE or a USR command 
to call some machine language subroutine. 

How do we get by with such a slow language? We could 
use PEEK and POKE or Assembler routines. But then there 
would be no reason for this article. The first criterion is to 
make the most of what you have. Don't get too fancy, either. 
It’s been my experience that in BASIC, when you get fancy, 
you get slow. The second criterion that we must impose is 
that the more graphically oriented your program is, the more 
overhead involved by the computer. (Remember, it’s not the 
amount of RAM used in a particular graphics mode that 
hurts you; it’s the amount of coding required in your program 
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to address it all.) Finally, when it comes to sound, experi- 
ment. Many good sound effects can be done by a simple 
SOUND command with various distortions. It may take 

awhile to achieve the results that you desire, but it can be 


done. 


Here’s proof: a program that I wrote called Pick-up Sticks. 
Nowhere in the entire program will you find one POKE or 
one USR statement. The game itself is quite simple and will 


run easily on any Atari. 


Variable Usage Table 
Variable 


X$,Y$ 
A(15) 


XHOR, XVERT 
YHOR,YVERT 
XDIR 
YDIR 


NORTH, EAST,SOUTH,WEST 
CBLINK 


SUBSC 
MATCH 
NUMMATCH 
XMAT 

YMAT 


BLINK 


Usage 


Players’ initials 

Array used to determine 
sticks’ positions 

Player X’s horizontal and 
vertical position 

Player Y’s horizontal and 
vertical position 

Player X’s current direction 
of travel 

Player Y’s current direction 
of travel 

Playfield boundaries 

Color cycle for blinking of 
sticks 

Subscript for scanning 
through array A 

Used to determine which 
player picked up the stick 
The number of sticks which 
have been picked up 

The number of sticks picked 
up by player X 

The number of sticks picked 
up by player Y 

Selected stick board position 


79 


Part Three 





Race to the sticks in “Pick-up Sticks.” 


Program 3-4. Pick-up Sticks 


1d 


1164 
1268 


13a 


144 


isd 
164 


DIM X#(3),Y$(3),A(15) :NORTH=5:E£AS 
T=75:WEST=3:SOUTH=19:GOSUB 996 
REM DRAW BORDER & INITIALIZE 
GRAPHICS 21:COLOR @:FOR J=1 To i5 
rACI)=Ie5:NEXT J: XMAT=@: YMAT=XMAT 
SETCOLOR 1,9,14 

COLOR 1i:PLOT 3,1:DRAWTO 78,1:DRAW 
TO 78,38:DRAWTO 3,398:DRAWTO 3,1 
REM DRAW INITIAL BOARD 

FOR J=5 TO 75 STEP S:PLOT J,35:DR 
AWTO J,3@:PLOT J+1,35:DRAWTO J+1, 
3@:NEXT J 

COLOR 2:FOR J=5 TO 75 STEP 5:PLOT 
J,29:DRAWTO J,24:PLOT J+1,29:DRA 
WTO J+i,2@:NEXT J 

XHOR=44: YHOR=XHOR+2: XVERT=S: YVERT 
=XVERT 

SOUND #,288,2,4 

REM SELECT STICKS 

GOSUB 524 

REM FLAYERS 
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GOSUB 4518 

COLOR 2:FLOT XHOR, XVERT: COLOR 2:F 
LOT YHOR, YVERT 

REM INFUT MOVE CHECE STICES 
XDIR=STICKE (@):YDIR=STICKE (1) 

IF XDIR=14 THEN XVERT=XVERT-1i 

IF XDIR=6 THEN XVERT=AVERT—-1: XHOR 
=XHOR+i 

IF XBIR=12 THEN XVERT=XVERT+1 

IF XDIR=S5 THEN XVERT=XVERT+1:XHOR 
=XHOR+1 

IF XDIR=11 THEN XHOR=XHOR-1 

IF XDIR=9 THEN XHOR=XHOR-i: XVERT= 
XVERT+i 

TF XDIR=7 THEN XHOR=XHOR+1 

IF XDIR=1@ THEN XHOR=XHOR-1:XVERT 
=XVERT-i 

IF YDIR=14 THEN YY¥ 
IF YDIR=4 THEN YVE 
=YHOR+i 

iF ¥DIR=i3 THEN YVERT=YVERT+i 

IF YDIR=S THEN YVERT=YVERT+1: YHOR 
=YHORG1 

IF YDIR=11 THEN YHOR=YHOR-1i 

IF YDIR=9 THEN YHOR=YHOR-1i:YVERT= 
YVER E+ 1 

IF YDIR=7 THEN YHOR=YHOR+1 

IF ¥YDIR=1@ THEN YHOR=YHOR-i: YVERT 
=YVERT-1 

REM SET UP BOUNDARTES 

IF XVERTS=WEST THEN XVERT=WEST 

IF X¥VERT?=SOUTH THEN XVERT=SQUTH 
IF YVERT<=WEST THEN YVERT=WEST 

IF YVERT>=SOUTH THEN YVERT=SOUTH 
IF XHOR<=NORTH THEN XHOR=NORTH 

IF XHOR>=EAST THEN XHOR=EAST 

IF YHOR*£=NORTH THEN YHOR=NORTH 

IF YHOR?=EAST THEN YHOR=EAST 

GOTO é68@ 

REM ROUTINE TQ SELECT STICKS AND 
DETERMINE IF GAME OVER 


ERT=Y¥VERT-—-1 
RT=YVERT—-i:YHOR 
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CBLINE=1:SUBSC=INTC(RND(@)*15)+41:=C 
OUNT=4 

FOR J=1 TO 15:1F ACJ}£2:@ THEN 5748 
NEXT J:G0O TO 854 

IF SUBSC?15 THEN SUBSC=1 
BLINE=ACSUBSC):1F BLINKS 5 THEN SU 
BSC=SUBS5SC+1:G0TO 57% 

ACSUBSC) = 

RETURN 

REM BLINE STICKS 

COLOR CELINE 

PLOT BLINE,29:DRAWTO BLINK, 2a 
FLOT BLINE+1,297:DRGWTO BLINKE+1,2@ 
CBLINE=CBLINE+i 

IF CBLINK?4 THEN CRLINKE=1 

RETURN 

REM TEST TO SEE IF MATCH 

MATCH=1 

IF XVERT=19 AND (XHOR=BLINKE OR XH 
OR=BLINE+1) THEN MATCH=MATCH+1 

IF YVERT=19 AND (CYHOR=BLINE OR YH 
OR=BLINE+1) THEN MATCH=MATCH+2 

IF MATCH=1 THEN GOTQ 228 

REM BLANK ITEM 

COLOR @:PLOT BLINK, 29: DRAWTOC BLIN 
Kk, 2@ 

PLOT BLINKE+1,29:DRAWTO BLINKE+1, 2% 
COLOR MATCH 

FLOT BLINE,3@:DRAWTG BLINE, 35 
PLOT BLINK+1,23@:DR4AWTQ BLINE+1,3 
IF MATCH=2 THEN XMAT=XMAT+1 

IF MATCH=3 THEN YMAT=YMAT+1 

FOR gd=1 10 250 STEP Ss: SGUND @,2,1 
M@,1@:NEXT JSSOQUND 4,4,48,@:COLOR @ 
POR J=S3 TO 19:PLOT Syd: DRAWTO 7S, 
JSENERT 

NUMMATCH=NUMMATCH+1: TF NUMMATCH=1 
3 THEN 854 
XVERT=INTCRND (#) k1i5)4+3:2YVERT=XVER 
Ts ZHOR=iNTtRND (4) *454)4+5: YHOR=XHOR 
#2:G60TO i9¢ 

REM GAME OVER 


un 


Bée 
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FOR J=1 TO i@:S50UND @, 2@%*J,18,1: 
FOR K=1 TO 1if:NEXT EF: SOUND 8,84,96, 
@:FOR E=1 TO iS:NEXT E:NEXT J 
GRAPHICS 18:FOSITION 3,1:7 #6; "GA 
ME OVER": 7 #6 


POSITION 2,2:7 #6:X#3" "3; XMAT:FOS 
ITION 11,327 #6;Y%3" "3 YMAT 

FOR J=1 TO 2@@:NEXT J:GOSUB 914:6 
oTO 112 


GRAPHICS 18:POSITION 1,1:7 #6; "im 
CKUP STICKSe 

POSITION 1,7:%7 #6; "PRESS (abaya TO 
PLAY":FOR WAIT=1 TO 3@:NEXT WAIT 
IF STRIG(®)=>STRIG(1) THEN 946 
POSITION 1,7:%7 #6; "FRESS FIRE TO 
PLAY":FOR WAITT=1 TO 3&:NEXT WAIT: 
GOTO 97146 

GRAFHICS 6:7 "ENTER INITIALS OF F 
IRST PLAYER": INFUT X# ; 

7? "ENTER INITIALS OF SECOND FLAYE 
R"s INPUT Y#: RETURN 
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Poker Solitaire 


Allen R. Breon 


This strategy game is for one or two players, although more can 
play if your machine has more than 16K memory. 


“Poker Solitaire” is a strategy game played with a standard 
deck of cards. The object is to create the best ten poker hands 
possible within a five-by-five matrix, using the first 25 cards 
in the deck. These are dealt one at a time and, once posi- 
tioned in the matrix, cannot be moved. When 25 cards have 
been played, each hand of five cards (five across, five down) 
is scored; the final score is the sum of the ten individual 
hands. 

The version presented here requires 13K of free RAM, 
without the REM statements, which are provided only to 
clarify the listing. One or two persons can play, although 
more players can easily be added if enough RAM is available. 


Playing the Game 


After typing RUN, you will see a title screen while initializa- 
tion is taking place. When the game has been set up, the 
option/score screen will appear. The first time you see this 
screen, the top half will be blank. The bottom half will con- 
tain the options. 

Only the option that is blinking can be changed. To 
change the value, execute the command, or view a screen, 
press the trigger of the joystick plugged into port one or press 
the OPTION console key. To move to another option, move 
the joystick in any direction or press the SELECT console key. 
You may start the game at any time by pressing START. 

The options are fairly obvious, except for “DECKS.” If 
there is more than one player, this option allows each player 
to have either a unique set of cards or the same sequence as 
the other players. In the former case, the cards received by 
one player have no bearing on the cards dealt to the other 
players — they are not being dealt from the same “deck.” In 
the latter case, players will see who gets the highest score 
using the same cards. 
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The Play Begins 


After you have indicated you wish to START the game, there 
will be a delay of a few seconds, followed by the playing 
screen of the first player. This will consist of a five-by-five 
matrix, the notice PLAYER 1 vertically along the right-hand 
side, and the first card displayed in the lower right-hand 
corner. 

The colored rectangle is a cursor that can be moved in 
any direction by the joystick. When you find a location you 
like, press the joystick trigger. The card will appear at that 
position and also remain at the bottom of the screen. 

If you change your mind, simply move the joystick to 
reposition the card. Once you are satisfied with the location, 
press the trigger a second time to finalize your selection. 

If there is more than one player, the next player’s screen 
will immediately appear. Play continues until 24 rectangles 
have been filled for each player. It is not necessary to do 
anything to position the 25th card. It will be placed in the re- 
maining location automatically. You can hold the trigger to 
view the screen; otherwise the next screen comes up 
automatically. Release the trigger to continue. 


Scoring 


After the final card for the last player has been positioned, 
the first player’s screen will appear and be scored. The final 
score will appear in the lower right-hand corner. When the 
screen has been scored, either move the joystick in any direc- 
tion or press the trigger to bring the next player's screen to be 
scored. 

These are the scores for each possible hand: 


HAND SCORE HAND SCORE 
One Pair 2 Two Pair 5 
Three of a Kind 10 Straight 15 
Flush 20 Full House 25 
Four of a Kind 50 Straight Flush 75 
Royal Flush 100 


After the scoring of the final player, moving the joystick 
or pressing the trigger will cause the option/score screen to 
appear. In addition to the options listed before, this screen 
will now contain each player’s score for the game just com- 
pleted, plus the highest score since RUN. By using the 
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joystick or the console keys, you can review these screens. 
Press the BREAK key to end the game and return to BASIC. 

Any time joystick or console input is required, you can 
instead press START to begin a new game, or OPTION or 
SELECT to return to the option/score screen. 


The Program 


The program is divided into five general areas: the game 
itself, the scoring routine, the options routine, initialization, 
and character set redefinition. The game and the scoring 
routines, since they are the most frequently used, are located 
near the beginning of the program to take advantage of the 
faster execution speed for statements near the beginning. Also 
near the beginning is a subroutine used by several of the 
routines for blinking displays while checking for input. 

Extensive use is made of the capability to relocate the 
display and write screens. The location of the pointer for the 
display list is figured by calculating PEEK(560) + PEEK(561) 
*256 +4. The start of screen memory is the two-byte address 
beginning at location 88. 


Changing the Screen 


Each player in this game has his or her own playing screen. 
In addition, two screens are used to display the option/score 
data and to retain the high-score hands. Redrawing these 
screens each time they are needed would be time-consuming. 
Instead, each screen has its own memory location, which is 
stored in an array. When a screen is required, the appropriate 
numbers are POKEd into the pointers and the screen appears. 

The screens are stored below RAMTOP (PEEK(106)*256). 
The first four pages below RAMTOP are used for the rede- 
fined character set. Each page holds 256 bytes of information. 
We need to set aside 240 bytes for each Graphics 2 screen we 
need. Each screen will begin on an even page. This way the 
least significant byte of the pointers will be zero, making 
housekeeping chores easier. 

Before anything is stored in the area we have set aside, 
we must check to see if there is enough memory to hold 
everything. If the end of the program — PEEK(144) + 
PEEK(145)*256 — extends into the memory for the screens, 
the program will stop. 
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Memory Requirements 


Memory requirements change with the number of players that 
could play. With the REM statements removed, the program 
requires 13K RAM with two players. Each player beyond the 
first one uses about 900 additional bytes. Up to five people 
can play without affecting the game at all. Nine players will 
cause the option/score screen to display incorrectly, but will 
not affect the playing of the game. The variable MAXPL in 
line 4010 sets the maximum number of players. Set this to 
whatever your system can handle. 


ee. et er | 
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Where to put the five of diamonds?? 





The character set is redefined in lines 5000-5110. Graphics 
2 displays can use only half the character set. We need up- 
percase and non-inverse characters most of the time. The 
machine language routine in line 5020 copies one page of 
memory. It is used to copy the first two pages of the ROM 
character set to the memory location set up in RAM. It is also 
used to copy a new high score display. 

We redefine four unused characters to be the suit 
characters. These are copied directly from ROM. Also, we 
create a single character 10, designed using SuperFont (see 
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COMPUTEs First Book of Atari Graphics), and an inverse blank 
by turning on all bits. 


Dealing the Cards 


This program “deals” the cards by randomly choosing a 
number between one and 13 for the value and a second 
number between one and four for the suit. In order to make 
certain that no card is used more than once, these numbers 
are mapped into a 52-element array to represent each card. If 
the card has been used, a new value and suit are chosen. 
Note that while this is a good method for choosing cards for 
this game, it would be inadequate if all the cards in the deck 
were eventually to be used, because there could be problems 
finding an unused card near the end of the deck. In that case 
the deck would have to be “reshuffled.” 

Logical assignments are used to reduce the number of IF- 
THEN statements. If a variable could take on many values 
depending on several conditions, then memory requirements 
are decreased by replacing many IFTHEN statements with 
one line containing many logical assignments. This technique 
is used in lines 90 and 100, for instance, to determine the new 
cursor position caused by the motion of the joystick. These 
two lines replaced 12 statements otherwise needed to test all 
joystick positions. 

Whenever possible, the variables NO and N1 are used to 
replace 0 and 1. The variables take up one byte for each oc- 
currence after the first; the constants require six bytes every 
time they are used. Since there are more than 250 occur- 
rences, this is a considerable savings. 


Program 3-5. Poker Solitaire 


8 REM COMMENTS NOT NEEDED FOR FPROGRAM 
BXECUTION 

9 REM LEAST-USED ROUTINES AT END OF P 
ROGRAM 

1@ CLR :GOSUB 49@@:GOTO 3880 

iS REM BEGIN GAME 

26 FOR J=N1i1 TO 25 

25 REM RESET ATTRACT MODE 

26 REM RANDOMLY CHOOSE VALUE AND SUIT 


88 


7H 
ag 


oe 


Lge 


144 
is 


Part Three 


FORE 77,N@:F=N@:C=INT CRNDON@) KIS) + 
NisS=INTCRND (NM) *4)4N12TF PLAY 6 C5— 
Nid*i13+C-1,DK-1)=N1i1 THEN 38 

REM RECORD THAT CARD HAS BEEN USED 
REM IF SUIT=HEARTS GR DIAMONDS FLA 
G& F WILL GAUSE SUIT TH BE PREIENTED 
IN RED 


PLAY ( (S-Ni) *134+C-1,DE-1)=Ni:IF S=N 
1 OR S=3 THEN F=32 

POSITION 14,11:7 #6; CD#(C,C);CHRS< 
ASC (SUIT#(S,S))4+F):POSITION X,Y:? 
#4:"299"s:POSITION X,Y 

FOR I=Ni TO 25:NEXT I 

STK=(PL-N1) *(STES?N1) 
A=STICK(STK):IF A=15 THEN 248 


bP U 


REM DETERMINE NEW £-Y COORDINATES 
X=¥+S4 00824) AND (ALE) 3 -SBXCCA?B) A 
ND (&< 12)32:R=X#iXS=Ni AND Xi=12)+1 
SECXEN1)4+¢0X%2133 


YHYt2# ((8=53) OR CA=9) OR (A=13))- 
S2¥CCHh=4) OR (h=18) GR tA=14)3:Y=¥ 


ECYS=N@G AND Yi=8)+8k (YING} 

REM CHECK IF NEW LGCATION IS FREE 
REM IF NOT, SET FARAMETERS TQ CAL 
L SUBROUTINE AT i188 


REM CARD CURRENTLY AT LOCATION WI 
LL BLINE ON AND GFF UNTIL JOYSTIC 
Kk TS MOVED 

IF MATC CINTS? X73), INTC¥/2) 435% CPL—N 
1))0=N@ THEN ON FLAG GOTO 188,199 

R=N@:1IF FLAG=N1i THEN F #46; BLA2%;8 
3283; :FLAG=2 


ASVCPLISING (X74 S) 2 VYSVCPLISINT C¥ 72) 
+54 (PL-N1) 2CD=MATCCXSYV CPL) ,YSVCPL 
YI SSUIT=MATSCAZSVCPL) ,YSVCFL? ) 

IF SUIT=N1 OR SUIT=3 THEN F=32 
S#(N1)=CD# (CD) 25602) =CHRECASC(SUI 
Té&(SuiTi) +E) 2:A8=" "sXPOS=xX:YFOS= 
v 
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REM IF RETURN FROM SUBROUTINE WAS 
DUE TO TRIGGER BEING FUSHED THEN 
RETURN TQ SUBROUTINE 

GOSUB 14@@:I1F OF=7 AND L=15 THEN 

149 

A=L:0N INT(OP/2)+(OF=7) GOTO 3a18 

» 3918, 3226,98 

REM IF NEW LOCATION IS FREE, MOVE 
CURSOR 

? #6;BL32%;BL32$; 

FLAG=Ni:FOR I=N®@ TO 2:SOUND N1,19 

@-1,1@,15:SOUND 2,1*15,11,15:NEXT 
I:SOUND Ni,@,N@,N@:SOUND 2,NS,N@ 

NG 

POSITION X,¥:? #6;"22":FOSITION X 
Y 

3 

REM CHECE FOR INFUT FROM JOYSTICK 

» TRIGGER, GR CONSOLE BUTTONS 

IF STICK(STK)<215 THEN 4@ 

REM CONSOLE BUTTONS CHANGE LOCATI 

ON 53279 

REM 3: OPTION 

REM 5S: SELECT 

REM 6: START 

REM 7: NO BUTTON PUSHED 

OP=PEEK (53279):1F OF<7 THEN ON IN 

T(OP/2) GOTO 3#14,3919,32728 

IF J=25 THEN 259 

ON STRIG(STK)+1 GOTO 278,218 

FOR I=N1 TO 3@:1F STICK(STKI<215 

THEN FOF :GOTO 4@ 

NEXT I 

REM TRIGGER HAS BEEN PUSHED 

REM PRINT CARD AT LOCATION 

FOR I=N@ TO 15:SOUND N1i,1@@-Sx«5,1 

@,15-I1:NEXT I 

? #6:CD$(C,C) sCHRS (ASC (SUIT#(S,5) 

)+F):POSITION X,Y 

FOR I=N@ TO i5:SOUND N@,1@@-C,16, 

15-I:NEXT I:FOR I=Ni TO if@:NEXT I 

SOUND N@,NS,N@,N@:SOUND NiI,N@,Ne, 

N@ 


385 


Sig 


Sm 


Hed Gat fel led bed 
CA On fe ta hd 


Un iS 
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REM CHECK FOR INPUT 
FOR I=Ni TO 3S5S:0F=PFPEER (CS2279) :1F 
OP 7 THEM FOP 20N LAT SOPyS) SUT 


3919, 38198, 3226 
NEXT I 


IF STICK(STK)<4>15 THEN 4@ 

IF J=25 THEN 368 

ON STRIG(STK)+N1 GOTO 386,218 

REM ALLOWS SCREEN TG BE HELD AFTE 

R AUTOMATIC PLACEMENT OF 25TH CAR 

D 

FOR I=Ni TO 3@:1F STICK(STK)<>315 

THEN POF :GOTO 4@ 

NEXT I 

REM TRIGGER WAS FUSHED FOR FINAL 
PLACEMENT OF CARD 

FOR I=N@ TO 15:SOUND N#,199-C#2, 1 
$,15-I:NEXT I 
MATCCINT(X/3), INT(Y/2) 45% (PL-N1)) 
=C=MATSCINT(X/3), INTCY/2)4+5# (PL-N 
1))=S 

SOUND N#@,N@,N@,N@:SOUND Ni, NaN, 
N@ 

REM FIND TOPMOST/LEFTMOST FREE FO 
SITION FOR CURSOR 

FOR Y=S*(PL-Ni) TO 445% (PL-Ni):FO 
R X=N@ TO 4:I1F MATC(X,Y)=N@ THEN 
FOP :GOTO 439 

NEXT X:NEXT Y 
X=X*kS4+Ni:V=(Y-S*H(PL-N1)) #2 

IF J=2?5 AND STRIG(STK)=N@ THEN 44 
a 

REM SAVE STATISTICS FOR THIS FLAY 
ER 

XSV (PL) =X:YSV (FL) =V:iPL=PL4Ni:IF F 
L>NF THEN PL=N1 

IF DKS>Ni THEN DE=FL 

REM RELOAD STATISTICS FOR NEXT FL 
AYER 

X=XSV(PL):Y=YSV(PL):IPOKE 89,5C2(F 
L)}:2POKE START4N1,SC2¢(PL) 

FOSITION 18,11:7 #4;" “:IF PL=Ni 
THEN 512 


4>a@ 
bark 20 
a1 
795 
796 


997 
998 


999 


1iaag 


1g1ia 


1420 


imag 


1946 


1466 


1g7@ 
1486 


14976 
114@ 


1114 


199s 
1976 


92 


Part Three 


IF DES?Ni THEN 3¢ 
GoTo 52 
NEXT 3:GOTO 2896 
REM SUBROUTINE FOR BLINKING 
REM VALUE IS IN $S#;A% CONTAINS EN 
OUGH BLANKS TO COVER S# 
REM X-Y COORDINATES IN XFPOS-YFOS 
REM CHECKS FOR INPUT WHILE ALTERN 
ATELY FRINTING S# AND A$ 
REM RETURNS TO CALLING SUBROUTINE 
IF INPUT RECEIVED, UNLESS START 
IS INDICATED, IN WHICH CASE GAME 
IS STARTED 
POSITION XFOS,YFOS:7 #6;4%:I=STR 
IG(STK) :L=STICK (STE) : OP=PEEK (532 
79) 
IF I=Ni AND L=i5 AND OF=7 THEN i 
B3e 
ON OF GOTO 1838,1839,1989,1938,1 
688,321,189 
FOR K=Ni TO 1@:1=STRIG(STK):L=ST 
ICK (STE) : OP =PEEK (53279) 
IF I=N@ OR L<2iS OR OF<7 THEN FO 
SITION XFOS,YPOS:? #6:S%:FOP :6O0 
TO 1826 
NEXT K:FOSITION XFOS,YFOS:? #4;S 
#:FOR K=N1 TO 4@:1=STRIG(STK):L= 
STICK (STK) : OP=PEEK (53279) 
IF I=N@ OR L¢>iS OR OF<7 THEN FO 
FP GOTO ig2@ 
NEXT K:GOTO 1g 
IF OP<3>7 THEN I=(OP<>3):L=13+(0P 
£>S5)%2 
POSITION XFPOS,YFOS:? #4;5% 
IF (S#="EETE AND I=NH) OR (LEN 
(S$)=2) THEN RETURN 
FOR K=5 TO Ni STEP -1:SOUND N@,I 
*(1@@-)4L45,14,15:NEXT KE: SOUND 
N@,N@,N@,N@: RETURN 
REM SCORING ROUTINE 
REM CLEAR AND RESET OFTION/SCORE 
SCREEN 


2aag 


21 


a ee 


J 


2a@awd 


ce 2 ir 
SMBS 


284g 


2845 
Susu 


2655 


2=B86ea 


27 
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POKE 8@9,SC2(MAXPL4+N1):FOSITION N 
@,N@:FOR I=N@ TO 7:7 #6; BLANES;: 
NEXT I 

S$=STR#S(HS):GOSUB 249:POSITION 
3,NE+i:? #6; " SEE GWESeTers’: CHRS (AS 
CO"2")4945)5" "2S 

FOR SCS=Ni TO NFE:STK=(SCS-N1)4(S 
TES?N1):FOKE 89,8SC2(SCS):POKE ST 
ART+N1,5C2(SCS):FOSITION i@,11:? 
Hos" 8 

SC=N@:FOR Y=5*#(SCS-N1) TO 4+(5%( 
SCS-1)}:FOR X=Ni TO 13:£&C(X)=N@: 
NEXT X:FOR X=Ni TO 4:ES(X)=N@:NE 
xT X 

REM PLACE INFORMATION FROM ONE H 
ORIZONTAL HAND INTO ARRAYS FOR § 
CORING 

FOR X=N@ TO 4:C=MATC(X,Y):EC(C)= 
EC (C)+Ni:S=MATS(X,Y):ES(S)=ES(S) 
+Niz:NEXT X:XS=16:YS=(Y-5*(SCS-1) 
x2 

REM GO TO EVALUATION SUBROUTINE, 
THEN TO DISFLAY SUBROUTINE 
GOSUB 211@:GOSUB 229@:NEXT Y 

REM VERTICAL HANDS SCORED 

FOR X=N@ TO 4:FOR Y=Ni TO 13:EC¢ 
Y)=N@:NEXT Y:FOR Y=Ni TO 4:ES(Y) 
=N@:NEXT Y 

FOR Y=S*(SCS-Ni) TO 44+5*(SCS-N1) 
C=MATC(X,Y):EC(C)=EC(C)+Ni:S=MAT 
S(X,Y):ES(S)=ES(S)+Niz:NEXT Y:XS= 
XKS+N12YS=14+ CINT(X/2) *2=X) 
YS=1o 

GOSUB 211%:GOSUB 229@:NEXT X:GOT 
0 2376 

REM EVALUATION SUBROUTINE 

REM CHECK FOR FLUSH 

F=N@:FOR I=Ni TO 4:IF ES(1)=5 TH 
EN F=N1i 

NEXT I 

REM CHECK NUMBER OF OCCURRENCES 
FOR EACH VALUE 
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S=N@:P=N@:T=N@:FOR I=Ni TO 13:0N 
EC(I)+Ni GOTO 2148, 2158,27188,22 

GA, 2198 

S=N@:GOTO 2 

S=S+Ni:IF § 

a 

IF S=4 AND I=4 AND EC(13)=N1i THE 

N FOF :GOTO 225@ 

GOTO 2228 

REM TWO OF A KIND 

P=F+N1i:S=N@:GOTO 2218 

POP :GOTO 2242 

REM THREE OF A KIND 

T=T+Ni:S=Na 

REM CHECK FOR FULL HOUSE 

IF P*24+T*#3=5 THEN SCORE=SCORES(3 
):FOF :GOTO 2282 

NEXT I 

REM SCORES FLUSH, ONE FAIR, TWO 

PAIR, THREE OF A KIND 

SCORE=SCORES (4) * (F=N1i1)+SCORES (89) 
* (F=N1)+SCORES (7) * (P=2)+SCORES (6 
)*(T=N1):GOTO 2289 

REM FOUR OF A KIND 

SCORE=SCORES(2):GO0TO 2288 

IF I=i3 THEN GOTO 227@ 

REM STRAIGHT FLUSH OR STRAIGHT 

SCORE=SCORES (N1) * (F=N1)+SCORES(5 
)*X(FS3N1):GOTO 2289 

REM ROYAL FLUSH OR STRAIGHT 

SCORE=SCORES (N@) * (F=N1)+SCORES(5S 
)* (F< >N1) 

RETURN 

REM DISPLAY SCORE 

REM ROYAL FLUSH HAS SEFARATE DIS 

FLAY ROUTINE 

IF SCORE=SCORES(N@) THEN 2339 

FOR I1=46*SCORE TO 2.7*SCORE STEF 
—-?:SOUND N#,1I,18,5:SOUND Ni,1/2, 
12,4:NEXT I 

REM SCORE OF & GETS A RASPBERRY 
IF SCORE=N@ THEN FOR I=Ni TO 15: 


3 THEN FOF :GOTO 225 


2598 


2409 


PALA 
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SOUND N1,284,2,14:NEXT I 
POSITION XS+(SCORE<1@),YS:S#=STR 
$ (SCORE) :SOUND N1,N@,N@,N@: SOUND 
N@,N@,N@,N@:GOSUB 2494:7 #6;S%: 

GOTO 235¢ 

FOR I=13 TO Ni STEF -1i:FOR J=Ni 
TO 13:SOUND N@,I*J,1%,8:SOUND Ni 
»3*15,14,1@:NEXT J:NEXT I 

REM # IS REDEFINED TO BE A SINGL 
E CHARACTER 18 

POSITION XS,YS:FUT #6,ASC("#") 41 
2Q:PUT #6,ASC("G")4128 

SOUND N@,N@,N@,N@:SOUND Ni,N@,N@ 
NG 

SC=SC+SCORE: RETURN 

REM ALL 1@ HANDS HAVE BEEN SCORE 
D 

REM TOTAL SCORE IS DISPLAYED IN 
BOTTOM RIGHT-HAND CORNER 

FOR I=Ni TO iS5@:NEXT I 


FOR I=1@ TO 46@ STEP 1i@:FOR J=193 
TO 243 STEP 25:SOUND #,1,1@,15: 

SOUND 1,3,4,1@:SQUND 2,243,1,15 

NEXT J:NEXT I:FOR I=Ni TO 25:NEX 


"2 

S#=STR#(SC):SOUND N@,NS,NS,N@:50 

UND Ni, NS,N@,N@:GOSUB 2499: As=" 
{3 SPACES}" 
XPOS=16+3-LEN(S#):YPOS=19:POSITI 

ON XPOS,YFOS:7? #6;S%:FOR I=N1i TO 
25:NEXT I 


SOUND N@,N@#,N@,N@: SOUND N1i,N@,N@ 
»N@:SOUND 2,N@,N@,N@:FOR I=Ni TO 
25:NEXT I 

REM FOKE ADDRESS OF OFTIGN/SCORE 
SCREEN INTO WRITE-SCREEN FOINTE 

R 

REM IF PLAYER’S SCORE IS HIGHEST 
SO FAR, UPDATE HIGH SCORE LINE 

REM THEN REPLACE HIGH SCORE SCRE 

EN WITH FPLAYER’S SCREEN 


95) 


384 G 
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FORE 89,S5C2¢(0MAXFPL+Ni):1F SC#=HS 
THEN 2454 
H5=S5C:A=USR(1526,5C2 (505) *256,5C 
S(MAXPL+2)*255) :FOSITICON 185,NF+1 
=? #6;5% 

REM RECORD PLAYER*5 SCORE ON OFT 
ION/SCORE SCREEN 

FOSITION 2, (SC5-Nijd:? #465 "player 
PUT #6,5CS+272:7 #6; CHR#(ASCi(":" 
24224)5:FOSITION 13+ (8C<144)+(5C 
214),PEER (84): 7 #4;S5C 

REM BLINE FINAL SCORE UNTIL PLAY 
ER INDICATES TO FROCEED 

FORE 89,5C2(SC5):50SUB i#@ma:IF O 
F=3 OR OGFP=S THEN FOF : S5CS=S5C5+N1 
:GOTO 2846 ‘ 

REM SCORE NEXT FLAYER’S SCREEN 

NEXT SCS:GOTO 3088 

REM SUBROUTINE TO CONVERT SCORE 

FROM TAN NUMERALS TO WHITE NUMER 

ALS 

FOR I=Ni TO LEN(S#):S#(1,1)=CHRS 
(ASC (S#¢(1,1))4+224) :NEXT IT: RETURN 

REM OFTION/SCORE SCREEN ROUTINE 

REM VARIABLE SC IS USED TO CALCU 

LATE POSITION OF HIGH SCORE LINE 

SC=NF+N1 

REM ADDRESS OF OFTION/SCORE SCRE 

EN IS FOKED TO WRITE AND DISPLAY 
SCREEN FOINTERS 

FORE 89,S5SC2(MAXPL+N1):FPOQRKE START 
+N1,5C2(MAXPL4+N1):FO0KE 559, 24 
FOR I=N1 TO 45:NEXT I:sSTKE=N@ 

REM START OFTION 
XFOS=7: YFOS=7: St=" EqgeTame" : : 
{S SPACES} ":GOSUB 14@@:1F 
HEN 32264 

REM NUMBER OF FLAYERS, SAME/DIFF 
ERENT DECKS, SAME/DIFFERENT JOYS 
TICKS GQFTIONS 

FOR I=Ni TO 25:NE%2%T I 


S458 


Sa55 


SHbG 


387 @ 


3a75 


3888 


SAI 
s1gas 


SLI 


SS 


3126 
Sis 


3149 


3152 
31648 


SL6S 


3178 


318@ 
31°68 


ted 
bh 
& 
Q 


td td Od 
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bh] ee & 
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hd 
bd 
an 


td 
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XFOS=i5:FOR N=N®@ TO 2: YFOS=94N 

REM S# CONTAINS OFTION CURRENTLY 
BEING EXERCISED 

S$=STRS (NP X (N=N@) +DES* (N=1)4+STKS 
*(N=?7)):A%=" ":GOSUB 1f@@:IF I=N 
1 THEN 3118 

ON N+Ni GOSUB =988,3999,3198,319 
:GOTO 3@6e 

REM UPDATE AFFROFRIATE VALUE(S) 
NP=NPx* (NP<©MAXPL) +Ni:DES=(NP-N1) * 
(DES >N1)+4+N1i:STES=(NP<5) k (NF-N1) & 
(STES?N1)+N1:RETURN 

DES= (NP-N1} * (DES<NF) +Ni:RETURN 
STKS=(NF<S) k (NFP-N1) *(STES<NP) +N1 
> RETURN 

FOR I=Ni TO 25:NEXT I:NEXT N 

REM IF ANY SCORES ARE DISFLAYED, 
ALLOW THESE TO BE REVIEWED 

IF SCS=N@ THEN 3169 

FOR N=Ni TO SCS-N1 

XPOS=1@: YPOS=(N-N1) : S#¢=CHR# (ASC ¢ 
STR#(N))+224):A$=" ":GOSUB i19@@: 
IF I=N@ THEN GOSUB 23194 

FOR I=Ni TO 25:NEXT I:NEXT N 

IF HS=N@ AND SCS=N@ THEN 3826 
REM IF @& HIGH SCORE EXISTS, ALLO 
W THAT SCREEN TO BE REVIEWED 

N=MAXPL+4+2: XPOS=3: YFOS=SC: S#=" EE 

(EETeaTers":A$="{1@ SFACES?":GOSUB 1 

@G@G:0IF I=N@ THEN GOSUB 3196 

GOTO 3a268 

XPOS=N@:YPOS=N@G:S$=" ":AgG=" "PO 

KE START+N1,SC2(N):FOR I=1 TO 5a 
:NEXT I 

GOSUB 149@:POKE START+N1,5C2 (MAX 
PL+N1):RETURN 

REM REINITIALIZE FOR NEW GAME 
POSITION XFOS,YFOS:? #6;S4% 

FOR K=2 TO 1@:SOUND N@,k*(129-K) 
+L*5,14,15:NEXT E:SOUND N@,N@,NG@ 
wN@ 

REM BRANCHING FREMATURELY OUT OF 
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ae eo 


4gaa 


4695 


41a 
4g15 
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FOR-NEXT LOOPS CAN CAUSE ERRORS 

REM POP*s WILL CLEAR THE STACK 0 

F UNNEEDED RETURN ADDRESSES 

FOF :POF :FOP :FOP :FOR I=N@ TG 

4:FOR J=N@ TO NE*X5-i:MATCC(I,J)=N 

@:MATS(1,J3)=N@:NEXT J:NEXT 1I:SCS 
=N@ 

FOR I=N@ TO 5Si:FOR J=N@ TO DES-1 
>FLAY(I,J)=N@:NEXT J:NEXT I:FOKE 
89,S5C2(N1) 

FOR FL=Ni TO NP:POKE 89,SC2(PL) 

POSITION Ni,N@:FOR I=Ni TO 5:FOR 
J=Ni TO S:? #6;BL32$;BL32¢3" "s 
:NEXT J 

? $65" * 

POSITION Ni, (I1}*2:NEXT I 

POSITION Ni,i@#:?7 #6; BLANKS (N1,18 
):X=N1:Y=N@H:POSITION Ni,ii:s? #6; 

BLANKS (Ni,18) 

X¥SV (PL) =X: YSV(PL)=¥ 

A$="PLAYER":FOR I=1 TO 4:FOSITIO 
N 19, 1-1:PUT #6, ASC(CAS(I,1))+32: 
NEXT I:PGSITION 19,7:PUT #6,272+ 

PLENEXT FL 

POKE 99,SC2(N1):POKE START+N1,SC 

2(N1}:FL=Ni:DE=Ni:FLAG=Ni 


FOR I=8 TQ Ni STEF -1:FOR J=1 TO 
B8:SQUND @#,1,18,8:SOQUND 1,3,14,1 

@:NEXT J:NEXT I1:SQUND 8,4,4,4:50 

UND 1,4,8,8 

GOTO 2a 

REM INITIAL DIMNENSTONS AND SET U 

F 

GRAPHICS 2+14:FOSITION 7,1:7 #64; 
"POORER" :FOSITIOQN 3,3: 7 #6; " Sma 
Gharta” 

REM MAXPL IS THE MAXIMUM NUMBER 
OF FLAYERS DURING A RUN 
MAXPL=2:N@=@:N1=i:HS=@ 

REM ARRAYS ARE DIMENSIONED FOR T 
HE MAXIMUM NUMBER OF FLAYERS 


4020 


4agaa 


4A@GS35S 
45464 
4gs@ 
46335 
4gaxaeé 
4g6@G 
4agé65 


4a7a 
4a75 


4a7é 


4g3u 


4998 


4aqgs 


4faoe 


41a 


41a5 
4114 


4115 
4128 
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DIM XSV(MAXFL),YSV(MAXPL) , FLAY (5 
1,MAXPL-1) ,MATC(4,MAXPL*¥5-N1),MA 

TS(4,MAXPLES-N1) ,SC2(MAXPL+2) 

DIM CD#(13),SUIT#(4) ,A$(12), S861 

2),E&C(13),6S(4),SCORES(8) , BLANKS 
(28), BL32$(N1) 

REM SCORE FOR EACH FOSSIBLE POKE 

R HAND, IN DESCENDING ORDER 

RESTORE 4@5@:FOR I=N@ TO 8:READ 

J:SCORES(I)=J:NEXT I 

DATA 199,75,59, 25, 29,15,19,5,2, 
REM A DIFFERENT COLOR BLANE 

REM BLANK LINE (28 BLANKS) 
BL32$=CHRS$ (ASC ("3") +32): BLANES$=" 
{26 SPACES}" 

REM FIND 4 PAGES BELOW RAMTOF FO 
R REDEFINED CHARACTER SET 

CHSET= (PEEK (1@4&)-4) *256 

REM FIND 1 PAGE FOR EACH OF THE 

DISPLAY SCREENS NEEDED 

REM (1 FOR EACH FLAYER, 1 FOR OP 
TION/DISFLAY SCREEN, 1 FOR HIGH 
SCORE SCREEN) 

FOR I=Ni TO MAXPL+2:NSC=(PEEK (1a 
6) —-4-1) *256 
SC2(1)=INT(NSC/254):NEXT I:GOSUB 
SHag 

REM BEGINNING OF DISPLAY SCREEN 

REM ALL SCREENS WILL BE ON EVEN 

PAGE, SQ LEAST SIGNIFICANT BYTE 

WILL BE @ 

START=FEEK (54) +PEEK (541) ¥256+4: 

FOKE 88,Na 

REM CLEAR ALL SCREENS 

FOR PL=Ni TO MAXPL+Ni:POKE @9,S5C 

2(PL):POSITION N@,N@:FOR J=N@ TO 


1i:? #4; BLANE@;:NEXT G:NEXT FPL 
REM SET UP GFTION/SEGRE SCREEN 
POSITION WN1,9: 7 #6; " EES Wis 
Fg"; :NP=Nis? #6; NP:POSITION 8,184 
7 #6; " Geeta": =: DES=Ni:? #4:DE5 


99 


4130 


4135 


4136 


4137 


4146 


Part Three 


POSITION 7,11:7 #6; "Seeger: :s 
TKS=N1:? #4:STES:POSITION 7,7:? 


#6; " GET" 

REM CARD VALUES AND SUITS 

REM # IS REDEFINED TO BE SINGLE 
CHARACTER 18 

REM (8, 8.6.G) IN INVERSE VIDEO ARE 
REDEFINED TO BE THE GRAPHICS CH 
ARACTERS FOR HEARTS, CLUBS, DIAMON 
DS,SFADES 

RESTORE 415@:FOR I=Ni TO 123:READ 
A$:CD$(1)=A$:NEXT I:FOR I=N1 TO 
4:READ A$: SUIT#(I)=A$:NEXT I 

DATA 2, 35,4,5,4, 7,8.9,45,9,8, 8,8, 8 
s eS, Bl, 

REM DISABLE DISPLAY SCREEN TO Av 

OID FLICKER WHILE NEW DISFLAY SC 

REEN ADDRESS IS FOKED IN 

POKE 559,N@:FOKE START,N@ 

RETURN 

REM REDEFINE CHARACTER SET 

REM IF THE END OF THE PROGRAM (P 
FEK(144)+PEEK(145)*2546) EXTENDS 
INTO THE MEMORY FOR DISPLAY SCRE 
ENS, 

REM THERE IS NOT ENOUGH MEMORY; 

SEE TEXT 

IF SC2(MAXPL+2) *2546¢ PEEK (144) +4+PE 
EK(145)%*256 THEN GRAPHICS N@:?7 * 

NOT ENOUGH MEMORY; DECREASE MAXF 

L":END 

REM MACHINE LANGUAGE ROUTINE TO 
COFY ONE PAGE OF MEMORY FROM ONE 
LOCATION TO ANOTHER 
J=CHSET:RESTORE S@2@:FOR I=N@ TO 
20:READ A:FOKE 1536+1,4:K=K+A:N 
EXT I 

DATA 144,184,133, 296,194,194,133 
»284,184,169,9,177, 295,145, 293,2 
8,192,8,298, 247,96 

REM SUM CHECK HELFS DECREASE THE 
LIKELIHOOD GF SYSTEM CRASH DUE 
TO INCORRECT TYFING OF LINE S@2@ 
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IF K<>3929 THEN GRAPHICS N@:? :? 
"CHECK LINE 5928 FOR ERROR":? : 

LIST S@2a:END 

REM COPY FIRST HALF OF ROM CHARA 

CTER SET TO RAM 

A=USR (1536, 57244, CHSET) :A=USR(1IS 

36,573444+256, CHSET+256) 

REM REDEFINE SUIT CHARACTERS 

REM REPLACE @,@&.8.@ WITH THE GRA 

PHICS CHARACTERS FOR THE SUITS 

S=J3:J0=3+472:A$(1,1)=CHRS (ND) 2 AS ( 

2,2) =CHRS$ (16): A$ (3, 3) =CHRS(96) 24 

$ (4,4) =CHR# (123) 

FOR I=Ni TO 4:FOR K=N@ TO 7:POKE 
J+(CI-N1i) #94+K) , PEEK (57344+ (ASC 

A$(1,1))4+64%(123))#8+K):NEXT KN 

EXT I 

REM SINGLE CHARACTER i868 

RESTORE 5S@98@:A=S+8*4:FOR I=N@ TO 
7:READ N:FOKE A+I,N:NEXT I 

DATA @,182,237,189,197,187, 246,98 

REM REDEFINE 2 TO BE INVERSE VID 

EQ BLANK 

S=S+8%*32:FOR I= TO 7:FOKE S+I,2 

S5S:NEXT I 

REM ADDRESS OF NEW CHARACTER SET 

POKE 756, CHSET/256 

RETURN 
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MathMan 


Andy Hayes 


Translated for the Atari by Charles Brannon 
Entertaining animation makes this math practice game fun to play. 


Here’s a program which proves that computer-aided math 
practice need not be boring. In the guise of a game, 
“MathMan” teaches multiplication facts by presenting random 
problems. The player (or student) types in the answer and 
presses RETURN. If he is correct, his friends gathered below 
cheer, but if the player fails to guess correctly, one of his 
friends will run away in shame. If all six friends flee, the 
game is over. 

A good player can advance to the next level by success- 
fully completing ten problems. The problems get successively 
more difficult, so this single program will provide challenge 
for almost any elementary school child. (Adults may also en- 
joy the animation.) 


| $EI-CORRECT ANSWER 
| yea-VYOUR ANSWER 


no0aqoa0 


ar ur ur yr 


INNINNANGIN 
SCORE~10  TURNS-5 





Multiplication practice can be fun with “Mathman.” 


Part Four 


Program 4-1. MathMan 


@ A=6 

1 LV=1 

1@ GRAPHICS @:POKE 82,@:POKE 752,1:? 
" CLEAR} " 

11 Y=INT(RND(@)*15):SETCOLOR 4,Y,6:SE 
TCOLOR 2,Y,4 

24 POSITION @,16 

260 7? “MEF?” 


220 7 "(3 SEGGTSSeD " 
239 7 "(4 BGG" 
249 7 "(5 BGT " 
258 7 "(6 BISGTESEy " 
266 7 "7 ita " 


2768 IF A=8 THEN 3808 
27a FOR I=1 TO A 


“88 POSITIQN 1%*3+6,17 

2970 ¢ “RIGHT $20; 2 F< DOWN £2 LEFT 
Ze CCF CDOWNE {2 LEPT? CES £072 D0WNs 
GS LEPTS ES 6a" 


295 NEXT I 

298 SC=PEEK (88)+254*PEEK (89) 

299 POSITION @,@:?7 "LEVEL "3LVv 

322 IF O=1@ THEN LV=LV+1i:G0TO 2896 

256 S=LVk2 

355 O=0+1 

Z6@ B=INT(RND(1) 4S) 41 

37@ C=INT(RND(1)#9) +1 

375 POSITION #,22:7 "SCORE-";SCO;" 
£= SPACES} TURNS-—"3;0 

280 POSITION 19,5:7 B;" * 

S90 POSITION 8,727 "* "st 

49@ POSITION 8,8:7 "{6 R}" 

418 POSITION 8,9:7 "{6 SPACES?" 

415 TRAP 415:POSITION 8,1@:INPUT AS:T 
RAF 40008 

43@ IF AS=BxC THEN 789 

449 IF AS<>B#C THEN 12896 

78@ SCO=SCO+54LV 

7ii POSITION 14,14:7 "DIET 

715 X=xX+1 





1446 
1878 


1a71 


1a72 
1484 
1498 
1iga 
11146 


LiiS 
1i2a 
ce Gta 
134 


Part Four 


E=INT(RND(1)*3@)+271¢ . 
FOR T=1 TO 1@:POKE 718, PEEK (53778 
):SOUND @,T,18,98:NEXT T 
SETCOLOR 2,9,4:SOUND 4,9,9,@ 

IF X=1@ THEN X=@:GOTO 76a 
GOTO 715 
FOR T=1 To sae 
COLOR 32:FPLOT @,23:DRAWTO 39,23 
PLOT @,1@:DRAWTO 39,19 
PLOT #,14:DRAWTO 39,16 

IF O=1a THEN 79a 
F=8:GOTO 16 
LV=LV4+1:G60TO 2000 

O=SC+6a4 

POKE @,9:@=@-39:POKE @,19 

IF @-SC“=489 THEN 1@3¢ 

GOTO 1995 

FOR I=1i TO 1@:SOUND @,1,8,1@-I:S 
OUND 1,1*19+50,2,8 

POKE @,128:POKE @4+1,128:POKE @-1 

,128:POKE @+4@,1278:POKE @-48,128 

POKE @4+40,0:POKE a— 44,8:POKE @,@ 
:POKE @-1,@:POKE @+1,@ 

NEXT I:SOUND 1,8,4,@ 

POSITION 98,14:?7 "{4 eer ”:rFos 
ITION 19,14:7 B*C; "SESE 
Taz:"" 

POSITION 8,12:7 “(4 Silda ":Fos 
ITION 16, 437 AS; " mei Silas: 
3 SPACESH ie 

FOR Z=1 TO 2@@:NEXT Z 

REM MAN RUNS AWAY 

REM 


FOR fT=A*2+6 TO 35 

POSITION ie " {03 (Es (DOWNS 
{3 LEFT} fA} 40} {DOWNS (3 LEFT? | 
fF} CDOWNS C3 LEFT? CPs Tee ™ 

SOUND @,1484,4,8 


FOR W=1 TO S:NEXT W 
SOUND @,14,4,8 


FOSITION 1I1,17:7 " {@3; 163 (DOWN? 
{= LEFT? {ALC} IBDOWNI IS LEFT? : 
£RIDOWN I C2 LEFTS i £53" 
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FOR W=i1 TO S:NEXT W 

SOUND 4,8,%,2 

NEXT I 

A=A-1:GOTO 14 

END 

NEXT KE 

PRINT “{CLEAR} {46 DOWN} YOU MADE 
IT THROUGH" 

PRINT "{6 SPACES}LEVEL "sLV-1 

PRINT "<2 DOWN} YOU NOW ADVANCE 
To" 

PRINT "{6& SPACES}LEVEL ";LV:0=@: 

FOR T=1 TO S#@#:NEXT T:GOTO 16 

REM 

PRINT "{CLEAR} 44 DOWN}SORRY BUT 


YOU LOST ALLS 


FRINT "£2 DOWN? {7 
NO 

FRINT "it4 DOWN; £4 
ORE WAS" 

FRINT "{2 DOWN} {7 


SPACES? YOUR ME 
SPACES? YGUR SC 


SPACES}";SCO 
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Word Hunt 


Robert W. Baker 
Translated for the Atari by Charles Brannon 


Word search puzzles are interesting and enjoyable. This computerized 
word search game creates a puzzle using words entered by the players. 


This game is designed to test your ability to find specific 
words or letter sequences hidden in a ten-by-ten letter matrix. 
Scoring is based on the time it takes to enter your correct 
answer within a given time period determined by the skill 
level selected. The program uses very little memory and will 
easily run in 8K. 

To play the game, first select the skill level you want to 
play at, between one and five. One is the easiest, allowing 
the maximum time of approximately 1.5 minutes to find each 
word. Skill level five, however, will allow only about 20 
seconds to find each word. 


Entering the Words 


Next enter a list of ten words, each being three to eight 
characters long. Only the letters A to Z may be entered, but 
they really do not have to be words. You can even use the 
game to make learning foreign languages more fun. If two 
people are playing, let one player enter the words for the 
other to find. Try to mix the word lengths entering both long 
and short words for best results. If too many long words are 
entered, it may take awhile for the puzzle to be generated. If 
any word will not fit into the matrix, enter a new list of 
words when asked. 

When the puzzle is ready, hit any key to start the game. 
Timing starts when the first word is shown. 

Scoring for a correct answer is based on the amount of 
time it takes to respond, with 100 points maximum for each 
of ten words. If a correct answer is given in five seconds, you 
score 100 points. After that, your possible score decreases 
with time to a minimum of ten points for a correct answer. A 
wrong answer does not score any points, and you get only 
one try for each word. 
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6123456789 COMPUTE 


FOWFBBFYLT 
STARTING LOCATIOR 
CROW, COLUMN): 


6 
2 
We 
3 
4 
5 
6 
¥ 
8 
3 





How many words can you find in our puzzle? 


To enter your answer, you give a row and column 


number of the first character of the word, followed by the 
direction code (see the diagram in the game). Any invalid en- 
tries are discarded, and you type only numbers; you do not 
type a comma or RETURN. 


Program Variables 


Before looking at how the program actually works, let’s take a 
look at the major variables used in the program: 
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S — defines the size of the letter matrix to be created. 

W — defines the number of words to be entered and 
used in the matrix. 

M(S,S) — is the actual letter matrix; note that a floating 
point numeric matrix is used instead of a string matrix. 
More about this later. 

W6$(W) — contains the word list. 

L(W,3) — remembers the starting location and direction of 
each word after it has been placed in the letter matrix. 
Each entry directly corresponds to the entry in the same 
position in the word matrix. 

P(S,S) and F(8) — are working matrices used to create the 
actual letter matrix used in the game. 


Part Four 


Program Description 


Now let’s take a look at how the program works. First the 
program gets the desired skill level (SL) as a number between 
one and five. The program sets a default value of three on 
the input line that the user can change before hitting the 
RETURN key. Lines 130-290 then get the list of words and 
check if each is a valid character string (A-Z). Each word is 
put into the word list in alphabetical order as it is entered by 
the user. This avoids the time-consuming process of sorting 
the entire word list at the end. In this way, there is a short 
delay as each word is entered. This short delay is not even 
noticeable by the user. 

Line 340 initializes the letter matrix to all *’s (decimal value 
42). Now each word in the word list is inserted randomly in 
the letter matrix in the following fashion: 


1) The point matrix is cleared (line 360) so we can 
remember what points in the matrix have been tried for a 
particular word in the word list. 

2) Lines 400-440 check that there is still at least one point 
in the letter matrix that has not been tried (entry in P is 
still 0). If all points have been tried, the user is asked to 
enter a new list of words since this list will not fit proper- 
ly in the letter matrix. 

3) A random starting point (that has not been tried) is 
chosen in line 450. 

4) The starting point is flagged as having been tried (P 
value now 1), and then a check is made to see if the 
matrix position is open (still *) or matches the first letter 
of the word (lines 460-470). 

5) Now the direction matrix (F) is cleared to remember 
what directions have been tried from this starting point 
(line 490). 

6) A check is made that a least one direction still hasn't 
been tried from this point (lines 500-510). 

7) A random direction (that has not been tried) is chosen 
in line 520. 

8) Then the word is checked to see if it can physically fit 
in the matrix in the selected direction from the current 
starting point (lines 530-650). This insures that the word 
will not exceed the boundaries of the letter matrix from 
this point. 
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9) If the word can fit, then each character position in the 
selected direction is checked against the corresponding 
character of the word (lines 670-690). Each character in the 
matrix must match the corresponding character in the 
word or must be unused (still *). 

10) If the word can be entered at this starting point and in 
this direction, each letter is inserted in the letter matrix 
(lines 710-720). Then the starting location and direction are 
saved for later use (line 740). 

11) If the word will not fit, then the next direction is tried 
until all directions are exhausted from this point. 


When all words have been put into the matrix, the re- 
maining unused positions (still *) are filled in with random 
letters (lines 760-770). 


Play Begins 

Everything is now set to play the game, as soon as the player 
hits a key (lines 780-800). The letter matrix is displayed along 
with a direction code diagram and a score box (lines 820-960). 
A word is given to the player for him or her to find in the 
matrix, and the timer is restarted (lines 970-1000). Then the 
program prompts the player for the starting location and 
direction code (lines 1020-1170). The values entered are then 
checked to see if correct, first against the values saved when 
the word was put into the matrix (lines 1190-1210). If the value 
does not match, then the program checks to see if a “double” 
was created when the unused positions were filled with ran- 
dom letters. Thus the program checks the player’s answer 
again to insure it is right or wrong (lines 1230-1280). If a bad 
answer is entered, it is indicated, and the correct answer is 
displayed with no score added (lines 1360-1430). A good 
answer is indicated and the appropriate score is displayed 
and added to the player's total. The score is based on the 
selected skill level and the time it takes to enter the answer. 


That's all there is to it. I should explain that a numeric 
vector is used for the actual letter matrix since it is easier and 
faster to use. Most people who have tried this game have 
found it to be very interesting and fun to play. At times it can 
even be educational. 
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Program 4-2. Word Hunt 


7@ 
Be 


OPEN #1,4,4,"KE:" 
S=1G:W=1G:DIM M(S,S),W$(WkIG), LNCW 
),P(5,5),L(W,3),F (8), R8(19),T#(19) 


T#="{19 SPACES? "sFOR I=8 TO Frwecre 
1H+1,0k1G+18)=TS: NEXT I 

FORE 752,94: PRINT "<CLEAR} (DOWN? WHA 
T SERILL, LEVEL” 


7? 2? "1 CEASY) - TO - 3 - CHARD) ? 
ate, LERT Ss 

INPUT XeTrF xX*i OR KS THEN i188 
SL=6-X 

= 


"£2? DOWNFSENTER "3W3" WORDS," 
? "Each 3 ta 7 characters lang 
{2 DOWN?" 
REM *** GET WORDS & FUT IN ORDER 
REM *** LONGEST TGQ SHORTEST 
FOR X=1 TO W:LixX,1)=4:LOX, 2) =#:2L¢ 
X, 35) =@ 
FRINT "WORD “3X3: INFUT RF 
Q=LEN(R} 
IF @<£3 THEN YF "k& TOG SHORT *«":G60T 
Go 18H 
IF @237 THEN F "* TOG LONG x": GOT 
O 18 
XG=H2T#="#E":1TtiSiHRbi TS (LEN(T#) +i 
YE"k""SFOR Y=1 TO GrA=ASC(T#E(V+1.,Y 
#100 


IF 4245 OR At9a@ THEN X¥9=1:Y=8 

NEXT Y:IF X?=1 THEN FRINT "x BAD 
WORD k":GO0OTO 188 

IF X=1 THEN T#=R$:T#(Q4+1)="kK"s WS ( 
XK¥1G-9,X*1G)=TH:LN(X)=@+1:GOTO 2964 


X9=@:FOR Y=1 TO X-1i:IF Q£=LN(Y)-1 
THEN 28 


FOR B=X TO Yti STEP -1i:T#=WHE((B-1 
,*K1IG—-9, (B-1 1G) Wt (Be1G-9,B*1G)= 
TS:LN(B)=LN(B-1):NEXT B 


113 


Part Four 


TE=RE: TS (Q+1)="K¥"sWS CY KIG-9, YRKIG) 


=T#rLNCY)=LENCT#) 


NEAT Ye tp xX 


Y=X-i 
9=@ THEN T&=R$:T 


$(OQ+1) 


H=S"K" EWE COXKIG-9,Xk1G)=T#: LN(X)=LEN 


{T#) 

NEXT X 

PORE Voz, is 
*Ss enough w 


? “CLEAR? {7 DOWN? That 


ords!" 


PRINT "iS DOWN} Flease be patient. 


7 "<3 DOWN} 
ng the puzz 


{12 SPACES} 1I*m now maki 


le!" 


REM ¥#xX INITIALIZE LETTER MATRIX 


EEX 
FOR X=1 TO 
423NEXT Yin 


REM *** INT 
EXT WORD 
FOR X=1 TO 
@:NEXT Y 
NEXT X:Q=0+ 
G=LN(Q)-2 


REM *k* TRY 
ORD 
X9=@:FOR X= 
FCY,X)=8 T 
NEXT YeNEXT 
REM *xk* WOR 
AIN 


SrFGR Yor TG Sah 
EXT xX:Q=4 


T FOINT HMATRIX & 
S:FOR Y=1 TO SSP 


1:IF Q?W THEN 76 


ALi FOINTS FOR 


4 TO Struk Y=L. T 
HEN X9=1:X=5:Y=5 
XASTPF KG=1 THEN 
D WILL NOT FIT, 


t¥,Xi= 


GET N 
i¥,X)= 


9] 


EACH W 
@ Serer 


45a 
TRY AG 


7 “CLEAR? THIS List of words will 


net all #1 


Bie = 7 
: a 2 


fF Words!".55 


+. 


UTG tse 


"Please enter ancther list a 


A=INT(S¥RND(1)+1)2B=INTCS#RNDC(1)+ 


1):IF PtB,A 
PCH, A)=1:I1F 
IF M(B,&) <2 
BH 

REM *** TRY 


,220 THEN 4594 
MC(B,A)=42 THEN 
ASC CWS (OKLA-F) >) 


ALL DIRECTIOQNS 


49 
THEN 4 


FROM T 


Part Four 


HIS FOINT 

FOR X=1 TO 8:FixX}=8:NEXT X 
X9=@:FCGR X=1 TO 8:I1F F(X) =8 THEN 
K9=1:X=8 

NEXT X:IF X9=8 THEN 488 

D=INT‘SG#¥RND(Cid+i)2IF FCD)=1 THEN 

oS 

FC(D)=1:0N D GOTO 354,594,598, 428, 

614,458, 648, 568 

REM #¥€** CHECE WORD WILL FIT 

ITF (4+6):S5 THEN Se 

IF ¢(B8-Gi<i THEN Sae 

GOTQ 676 
IF {t{8+G) > 
IF tA+G) > 

GOTO é67# 
IF ¢A@-Gi<e 
IF (8+G) +> 

GOTO 67# 
TF ¢B-G)e= THEN SH 

IF (A-G)<=1 THEN See 

REM *** CHECE WORD MATCHES INTC M 

ATRIX 

X=8:Y=B:X9=@:FOR N=2 TO G+i:GOSUB 
i55@:1IF M(¥,xX)=42 THEN 698 

IF MC(Y¥Y, X)<£ 2SASCCWS(CQ-1) *#1@+N)) TH 

EN X9?=1:N=G+l1 

NEXT N:X=A:Y=B:I1IF X9=1 THEN S54 

REM *kkx ENTER WORD 

FOR N=1 TO Gti:IF M(Y,X)=42 THEN 

MOY, X) =ASC (WS ((Q-1) KI +N) > 

GOSUB 1558:NEXT WN 

REM *kKk SAVE START & DIRECTION IN 

FO 

L(@,1)=A-i:LltG@,2)=B-1i:l(@,2)=L:1F 
Dew THEN 368 

REM *** FILL IN SFACES 

FOR Y=i TO 5:FOR X¥=1 TO S:I1IF MtyY, 
X)=42 THEN MCY, XI} =INT (25¥RNDC1)76 

a) 

NEXT ¥:NEXT Y2iWRP=a:7TS= 

7 "“4CLEAR? (18 DOWN? £15 SPACES? Garey" 


THEN See 
THEN Sa 


wu 


THEN Sag 
THEN Sia 


uo 
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798 7? "{6 DOWN+Depress any key when r 
eady to play!" 

8@0@ IF FPEEE (7464) =255 THEN 8aa 

8485 FOKFE 764,255 

Biff REM #€*¥* SET UP DISFLAY 

B20 7 "{CLEAR} (DOWN? (4 SPACES} Baier" 
;:FPORE 85,26:7 "EEE ae" 

838 REM kKk* PRINT *ROW? DOWN LEFT COL 
UMN 

844 REM **X* START QUT DOWN 4 

85@ REM #€£*k* LATER DO S&S UF & 3 RIGHT 

868 7 "{4 DOWNS EX DOWN? (LEFT? @i DOWN? 
{LEP TS ERCS UPSts RIGHTS *s 

878 FOR X=8 TO S-i:t? X3:NEXT X27 :¥Y=1 
:GOSUEB 1656 

She POR Yel TO S27 “a2 RIGHTS "3 ¥o2i5 "s 


870 FOR X=1 76 5:7 CHRPiM CY, X39 5 2 NEXT 


x 
a0 7 "LT" sNEXT Yi¥=8:G0SUB i658 
F168 PF 3:7 “Eee: FO" CO DOWN: 7 B 
1 u 
920 7 "€S SPACES? {Gi ths" se * 6&iRF 
SUT PRR 2°? "Ase SPAGES? £FP3 1 tas "se 
" ar m3 tty 


738 G=16:GOSUB 1788:7 
(TSS : FORE 85,25:7 "iV3 
{7 SPACES} 1B?" 
240 ‘PORE Goa, 2a? avs @i4 SPACES> 
tel oS a 
sae PORE Ga,2957 “tV¥as 
Goa PORE Ba,2os eo" ¢ 
966 G=8:GOSUB 179: 
c= 9 SPACES 
978 WR=WP+1:IF WE+W THEN i458 
988 Q=LN(WF)-1 
9990 REM *kkX NEXT WORD 
1446 GOSUB 17688:POKFE 85,29-(@/23):7 Wt 
CCWP-1)e18+1, (WR-1)%*18+0) 
1993 POKE 29,@:FORKE 19,@:REM FILL RTC 
LE 
141@ REM *** GET START LOC 


SPACES? {B?" 


1? SPACES? "2 REr 


1g=e 
1846 


1g38 
ig7@ 


1fea 
14968 
Lia 


1iig 


1126 
1146 


1158 
1168 


i176 


11868 
1198 


i2zia 
1229 


1238 


124g 


2g 


12466 


278 
1286 
1292 
Liaa 


1i31a 
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=3:GOSUEB 1740:7 "STARTING LOCAT 
ION":FOKE 85,29:7 "(ROW,COLUMN): 
FOR G=4 TO 14:GQOSUB i7a@ 

? "£19 SPACES}":NEXT G:6=4:GO0SUB 
170@:REM <-- 19 SPACES. 

GET #1,B:IF B=155 THEN 195@ 
PRINT CHRS(B)3",";:IF B=4@ THEN 
B=%:GOTO 1898 

B=B-48:IF B<1 OR B?9 THEN FRINT 
"<2 BACK S3";:GOTO 19596 

GET #1,A 

IF A4=i55 THEN i99@ 

PRINT CHR#(A);:IF A=48 THEN A=é: 
GOTG 1144 


A=A-48:1F Atl QR A>9 THEN 1838 
G=8:GOSUB 17088@:PRINT “DIRECTION: 
*“e2 SPORE Bao, 202097 ° Ser Tes 


F D=155 THEN 1 
PRINT CHR <b) 3% 
D>8 THEN 1148 
REM **#%# CHE IF GOOD INFO INFUT 
WT=PEER (28) +2546KPEER (C193 201F Bere 
(WP,2) THEN 1234 

IF D=L(WP,2) THEN 1364 

REM *#* CHE IF A DOUBLE HAY EXITS 
T 

K=At+1:Y=B+i:G=LNCWP)-1:SIF MCY,X) 
© FASC CME CHE EIG-9)) THEN ita 
X9=H8:FQR N=2 TO G:GOSUB LSSa@:iIF 
Xii GR X21 THEN 1278 

EP ¥¢i OR Y¥2Le@ THEN 1278 

IF M(Y, X)=ASCiWS CCOWRP-1) *184+N)) T 
HEN 1268 

X9=1:N=65 

NEXT N:IF X?=@ THEN i346 

REM #*** BAD START/DIR - NO SCORE 
G=6:GOSUB i788: FRINT " 

£14 SPACES} "3: B=L(WF,2):A=L(CWF,1) 
:REM 14 SPACES 

7 Bs", "5A 


= 
wv 


gi 
D-48:1F Bei OR 
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G=19:GOSUB 178@:7 "Cis SPACES} "s3L 
(WP,3):REM 13 SPACES 

G=12:GO0SUB 1799:7 "LESC}1UP} 

£13 SPACES} {ESC} {UP} ":REM 13 SPAC 

ES 

G=13:GOSUB 178@:7 "{Z} [E, CORRE 

CT {C3":sGOTO 142¢ 

REM *** GOOD ANSWER - GET SCORE 
IF WT<(SL*6@) THEN WS=19@:GOTO 1 

39@:REM <-- MAX SCORE 

IF WT>(SL*12@6@) THEN WS=18:GOTO 
139@:REM <-- MIN SCORE 

WS=S+INT(((SLK128@) -WT) /4@) 

G=12:GOSUB 179@:7 "CESC}<{UP3" 

G=13:GOSUB 1780:7 "{Z} We "ws 
i" POINTS": TS=TS+WS 

REM *** UFDATE TOTAL SCORE 

G=18:GOSUB 179@:7 "<8 RIGHT?";:TS 

FOR X=1 TO S@@:NEXT X:GOTO 946@ 

REM *** END GAME ¥xx 

POSITION 2,15 

FOR X=1 TO 8:7? "£12 SPACES} ":NEXT 
X:REM <-- 12 SPACES 

FOR G=-2 TO 14:GOSUB 179@ 

PRINT "{17 SPACES} ":NEXT G:REM 17 
SPACES 

FOSITION 2,15:7 "PLAY AGAIN (Y O 

RN} 7" 

GET #1.R 

IF R=ASC("Y") THEN 96 

IF R£>ASC("N") THEN 159@ 

END 

REM *x* SUBR TO INC COORDINATES 
IN DIR 

OM D GOTO 1564,1579,1589,1598,16 

66,1618,1628,163¢ 

Y=Y-1 

X=X+1:RETURN 

X=X+1 

Y=Y+1:RETURN 

Y=Y+1 

X=X—-1: RETURN 


1626 
1434 
16464 
1456 


1666 
1676 


168¢ 
169 
17ae 


X=X-1 


Part Four 


Y=Y-1: RETURN 
REM *#* SUBR FOR BOT TOF/BOTTOM 
RIGHTs"s21IF VY=i THEN 7 


PRINT “£3 

“Oy = si 
FRINT "{Z 
FOR x=a T 
F Y=1 THE 


> "rCh"sR 


OoTO 1476 
O S-i:? "{R}" 
N FRINT "£3" 
ETURN 


:=NEXT X:lI 


RETURN 


REM x*x** SUBRF TO FOSITION 


FOSITION 


24@,6+2:RETURN 
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Total Recall 


Tina Halcomb 


“Total Recall” is a simple memory game. It’s easy at first, but as the 
computer adds more and more to remember, the game becomes more 
difficult. 


After playing a game or two of “Simon,” it occurred to me 
that this would be a terrific game to write for the Atari. After 
all, the Atari has color graphics, sound — everything I could 
possibly need. However, I couldn’t come up with an easy way 
to display more than four colors on the screen at one time 
without painting my television set. 

Then along came the articles on Player/Missile Graphics. 
At last I have access to a multitude of colors. What a perfect 
solution to my problem: 


USE KEYS 





“Total Recall,” 
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Using Player/Missile Graphics I drew four vertical bars, 
giving each a separate color and sound. As the selection 
routine makes each decision, the luminescence of the bar 
chosen is changed and its tone sounded. Several counting 
routines are called upon to keep track of the events; and 
there are, of course, timing loops. 

There are also times when the screen is needed for text. 
Instructions to the game might be needed. And since I have 
not discovered a way to make the Atari laugh, we need to be 
able to convey a message to the poor person who loses the 
game. 

To clear the screen for the text display, you can position 
the bars to the far right where they are not visible. They can 
be returned to their playing positions at any time. 

The keys V B N M are used to identify the bars. The 
keyboard is monitored to determine if your responses are cor- 
rect. The Atari keeps score. 

How good is your memory? Play a few games of “Total 
Recall” and you will soon find out. 


Program 4-3. Total Recall 


19 DIM AS(32 

15 REM ASSIGN TONE TO BAR 

28 DIM TONE (4):TONE(1)=46@: TONE (2)=72: 

TONE (3) =96: TONE (4)=144 | 

19@@ GRAFHICS 2+16:SETCOLOR 2,7,@:SET 
COLOR 4,7,4:SETCOLOR @,%.14 

191@ POSITION 3,5:PRINT #6: "TOTAL REC 
ALL" 

1926 FOR W=1 TO i@@@:NEXT W 

128@ REM DRAW BARS 

1219 A=FEEK(19%6)-8:POKE 54279,4 
=256*A:FOR X=512 TO 1923: 
MBASE+X,255:NEXT X 

1215 REM ASSIGN COLOR TO BAR 

1226 POKE 559,46:POKE 784,26:POKE 765 
2116:POKE 746,68: POKE 707,196 

1225 REM SET PLAYERS TO QUAD WIDTH AN 
D TURN ON F/M GRAFHICS 

1236 POKE 53256,3:POKE 53257,3:POKE 5 
3258, 3:POKE 53259,3:SETCOLOR 2,9 
~@:SETCOLOR 4,4, 
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1246 

258 
1298 
13088 

a1 
1328 
13498 
1354 
lisa 


L4aa 
1418 


1426 
143@ 


1449 
1454 
1Saa 
15190 


1526 
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GOSUBR =a990 

POKE 53277,3 

REM PLAY INTRODUCTION 
DELAY=19@:RESTORE i375 

READ SELECT 

IF SELECT=256 THEN 159¢ 

GOSUB 1494 

GOTO 1314 

DATA 2, £5 Osby bee be Se 2 4-O 152 
56 

REM FLASH BARS AND SOUND TONES 
A=794:F=PEEK (A+SELECT) :C=INT(P/1 
6):L=P-C*16:POKE A+SELECT,Cxki6+1 
4 

SOUND @, TONE (SELECT+1),19,194 

FOR Y=1 TO DELAY:NEXT Y¥:SOUND @, 
G,5,8 

POKE A+SELECT,P 

RETURN 

REM SHORT INSTRUCTIONS 

GOSUB 4984 

GRAPHICS 2+16:SETCOLOR 2,7,9:SET 
COLOR 4,7,@:SETCOLOR &,9,14:FOKE 
559,46 

POSITION 3,3:PRINT #4;"PRESS RET 
URN" 

POSITION 4,4:PRINT #4;"TO START" 
POKE 764,255 

IF PEEK (764)=255 THEN 1566 

REM SHORT INSTRUCTIONS 

GRAPHICS 24+146:POKE 559,46:SETCOL 
OR @,4,14:SETCOLOR 2,8,@:SETCOLO 


R 4,4, 
POSITION 5,4:PRINT #4;"USE KEYS" 
POSITION @,1@:PRINT #6;" V 


{4 SPACES} B{4 SPACESIN 

{4 SPACES3M " 

FOR W=1 TO S@#@:NEXT W 

REM PLAY GAME 

GOSUB 30800 

REM SET UP ENTIRE SEQUENCE OF 32 
IN A& 
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FOR X=1 TO 32:A8(X, X)=STRECINT CR 
ND(H)*4)):NEXT X 

CURRENT=1 

DELAY=S56 

REM MAKE GAME GO FASTER AFTER I 
MOVES 

IF CURRENT?8 THEN DELAY=DELAY-1 
FOR X=1 TO CURRENT 
SELECT=VAL (A(X, X)):2:GOSUB 1484:1 
F X<>CURRENT THEN FOR Y=1 TQ DEL 
AY:NEXT Y:NEXT X 

REM CLEAR FEYBOARD AND WAIT FOR 
KEY TO BE PRESSED (DON’T WAIT TO 
0 LONG) 

X=1:FOKE 764,255 

WAIT=S*DELAY: SELECT=4 
WATT=WAIT-1i:IF WAITT=@ THEN 2208 
CH=PFPEEFK (764) :1F CH=255 THEN 214@ 
PORE 764,255 

REM DECIDE WHICH FEY I5 PRESSED 
IF NOT V BN M THEN IGNORE IT 

IF CH=16 THEN SELECT=9 

IF CH=21 THEN SELECT=1 

IF CH=35 THEN SELECT=2 

IF CH=37 THEN SELECT=3 

IF SELECT=4 THEN 2184 

IF SELECT< +VAL(AS(X,X)) THEN 221 


GOSUB 149@:X=X+1:IF X<>CURRENT+Ii 
THEN 299¢ 

CURRENT=CURRENT+1:IF CURRENT< 332 
THEN FOR Y=1 TO S#DELAY:NEXT Y: 

GOTO 295% 

REM 

REM SCORE ROUTINE 

GOSUB 499¢ 

GRAPHICS 2+14:SETCOLOR 2,7,9:SET 

COLOR 4,7,@:SETCOLOR @,9,14 

IF CURRENT=32 THEN 2959 

POSITION 4,5:PRINT #6; "YOU LOSE" 

RESTORE 249¢ 

READ A 
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IF A=256 THEN SOUND 9,%,%,%:GOTO 
26GG 

SOUND 9,A,19,19 

FOR W=i1 TO 5@:NEXT W 

GOTO 2346 

DATA 91,91,198,81,91,91,198, 254 
GRAPHICS 2+146:POKE 559,46:SETCOL 
OR 2,7,9:SETCOLOR 4,7,@:SETCOLOR 
G,%,14 

POSITION 5,2:PRINT #4;"YOU GOT" 
POSITION 8,4:PRINT #6; CURRENT-1 
POSITION 5,6:PRINT #4; "CORRECT" 
FOR W=1 TO 1@@@:NEXT WwW 

REM 

IF CURRENT>&6 THEN 2759 

GRAPHICS 2:FOKE 559,46:SETCOLOR 
2,2,8:SETCOLOR 4,2,98:SETCOLOR @, 
3G 

POSITION 4,2:FRINT #4; "NOW TRY I 
T u 

POSITION 4,4:PRINT #6;"WITH YOU 
FR uu 

POSITION 4,4:PRINT #6;" T.V. ON! 


FOR W=1 TO 2@@:NEXT W 

GOTO i5ae@ 

IF CURRENT?12 THEN 2899 

GRAPHICS 2:POKE 559,44:SETCOLOR 
2,7,8:SETCOLOR 4,7,98:SETCOLOR 6, 
5,9 

POSITION 3,2:PRINT #4;"THIS TIME 
USE" 

POSITION 6,4:PRINT #6; "*KEYS*" 

POSITION 5,46:PRINT #6;"V BN M" 

FOR W=1 TO 4@@:NEXT WwW 

GOTO 1598 

IF CURRENT>24 THEN 2852 

GRAPHICS 2?:FOKE 559,46:SETCOLOR 
2,4,@:SETCOLOR 4,4,4@:SETCOLOR @, 
G,14 

POSITION 2,2:PRINT #6;"YOU THOUG 

HT You" 
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POSITION 4,4:PRINT #4; "WERE DOIN 
G" 

POSITION 2,4:PRINT #4; "PRETTY WE 
se. 

POSITION 3,8:PRINT #6; "DIDN*T YO 
urns 

FOR W=1 TO 4@@:NEXT WwW 

GOTO 1586 

IF CURRENT?28 THEN 2999 

GRAPHICS 2:POKE 559,46:SETCOLOR 

2,5,8:SETCOLOR 4,5,8:SETCOLOR @, 
7,8 

POSITION 2,3:PRINT #6; "HOW MANY 
PEOPLE" 

FOSITION 4,5:PRINT #6; "ARE FLAYI 

NG" 

POSITION 4,7:FRINT #6;"THIS GAME 

cn 

FOR W=1 TO 49@:NEXT W 

GOTO 1598 

GRAPHICS 2:POKE 559,44:SETCOLOR 
2,2,8:SETCOLOR 4,2,8:SETCOLOR 4, 

H,14 

POSITION 1,2:PRINT #6;"IF YOU’RE 
SO SMART" 

FOSITION 3,4:FPRINT #6; "WHY DIDN? 
T you" 

POSITION 5S,4:PRINT #64 

a 

POSITION 8,8:PRINT #4;"GAME " 
FOR W=1 TO 4@@:NEXT W 
GOTO i586 

FOR T=i To 5s 

GRAPHICS 2:SETCOLOR 2,7,4:SETCOL 
OR 4,7,4:SETCOLOR 4,5,8 

FOR W=1 TO S@:NEXT W 

POSITION 5,4:PRINT #6;"TILT!Hti" 
FOR W=1 TO 2@@:NEXT Ww 

NEXT T 

GOTO 1598 

REM PUT BARS INTO PLAYING POSITI 
ON 


"WRITE THI 
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POKE 53248,59:POKE 
53259,134:POKE 53 
23,4 

RETURN 

REM MOVE BARS OVER FOR TEXT DISF 

LAY 

POKE 53248,259:POKE 53249, 259:PQ 

KE 53259,259:POKE 53251,259 

RETURN 


33249, 979: POKE 
2al,il7EGtPoke 6 
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Chiseler 


John Scarborough 


Who writes arcade-quality games? John Scarborough is nineteen 
years old and learned machine language from a book. He wrote 
“Chiseler” on an Atari 400 with 16K, a cassette recorder, and an 
Assembler Editor cartridge. He didn't even have a full memory map. 
It doesn't take a college education or years of experience. It just takes 
patience, careful design, and love for what the computer can do. A 
little wizardry doesn’t hurt, either. 


It seems like an easy enough job. Four boards are laid out in 
front of you, and your task is to chisel them away. To help 
you, you have five sets of four chisels each. And not just or- 
dinary tools — these chisels will hurl themselves at the 
boards and chip away strips of wood at a pretty reckless 
speed. 


But it isn’t as easy as it sounds. Your chisels also hurl 
themselves away from the boards each time they strike, and if 
you don’t catch them and bounce them back, they'll get away 
for good. And you'll soon discover that every time you get rid 
of one board, another appears in its place. 


The only way you can keep going on the job is either to 
be incredibly quick at catching chisels, or to get as many 
chisels as possible behind the new board when it appears. If 
you can trap them there, you can sit back and watch while 
they do the work for you. But don’t doze off — you never 
know when they'll escape again, and you'll be back to work. 


This is an arcade-speed game, but don’t worry if you 
aren't an accomplished arcader. “Chiseler” begins at a slow 
enough speed that a beginner can pick it up pretty well. But 
it keeps its challenge, no matter how good you get. 


You'll need a paddle controller. The game doesn’t require 
any cartridges to play, but you will need either BASIC or an 
Assembler Editor to enter the program the first time. 
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Entering Chiseler 


There are two ways to enter and SAVE Chiseler. If you have 
an Assembler Editor, you can use it and the assembly listing, 
or you can use the “Machine Language Editor (MLX)” pro- 
gram found in Appendix C and the DATA listing. If you don’t 
have an Assembler Editor, then you must use the MLX pro- 
gram to enter the DATA statements. It is important that those 
who use the MLX program read the article that accompanies 
it. When you use the MLX program, it may seem like extra 
work at first to have to type in two programs, but you'll save 
time later when you end up with a virtually error-free 


program. 


Starting Up 


Once you have entered the game and saved it on cassette or 
disk, you can start one of two ways. 

If you entered the game from BASIC using MLX, then 
the game was saved as an autoboot program. If you have it 
on cassette, just remove all cartridges, put the cassette in the 
recorder, and turn on the computer while holding down the 
START button. You will hear one beep. Push PLAY on the 
recorder, then RETURN on the computer keyboard. The game 
will load in automatically. If Chiseler is on disk, turn on the 
disk drive, put in the disk, and turn on the computer. 

If you entered the game with an Assembler Editor, then 
Chiseler must be loaded from the assembler cartridge or 
DOS. 

From the assembler cartridge, use the LOAD command. 
Then the debug command G2800 will start the game. 

If you created a binary file with MLX, then you must 
LOAD from the DOS menu. Choose option L, Binary Load. 
Enter the filename, then select M, RUN at $2800. 


How to Play the Game 


Chiseler comes up with two side walls and a back wall, with 
four colored boards stretching across from side to side. When 
you press the paddle trigger, the first of four chisels will come 
at you. You must move your paddle at the bottom of the 
screen to catch the chisel and hurl it back at the boards. It 
will bounce off the first board and come back toward the bot- 
tom of the screen. 
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Meanwhile, another chisel will start down toward you. If 
you catch it — and keep the first one going as well — two 
more chisels will come. As soon as you miss one chisel, new 
chisels will stop appearing, and you will never have more 
than four chisels at a time. 

You will notice that as each chisel strikes the board, a 
thin strip of wood disappears. When all the wood is chipped 
away at one point, the chisels can get behind the first board, 
and start bouncing back and forth between the first and sec- 
ond boards. This can be repeated with every board. 

When the last bit of a board has been destroyed, a new 
board will appear in its place. Try to have your chisel strike 
the last strip of wood from above, so the chisel will bounce 
back up on the screen and be trapped behind the new board. 
Then you can relax and watch the chisel do your work for 
you — until it breaks through again and starts coming back at 

ou. 
. When the last chisel has got by you, that turn is over. To 
start the next turn, press the paddle trigger. Four new chisels 
will be launched. You get a total of five turns. 


Scoring 


Each strip of wood in the first board is worth one point; each 
in the second is worth two; in the third, three; and in the 
fourth, four. 


Speed 


Every time a new board is put in place, the chisels on the 
screen speed up slightly. The more new boards, the faster the 
chisels. After a while, it gets going faster than human dexter- 
ity can handle. But try to handle it, because if you let the 
chisels get by you, they don’t start slowly again on the next 
turn — they keep every bit of the speed they’ve built up. 


Chisel Control 


If the chisel strikes on the right half of your paddle, it will 
bounce off at an angle toward the right. If it strikes on the 
left half, it will bounce off toward the left. When you first 
start, you'll probably feel lucky to catch the chisel at all. But 
quite soon you'll start getting some finesse, and the chisels’ 
will go pretty much where you want them. 
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This chiseler needs a lot of practice. 


Entering Chiseler from BASIC with the 
Machine Language Editor: MLX 


The last program in this book is the Machine Language 
Editor: MLX. It isn’t a game — it’s a utility to make sure that 
entering this long machine language program is easy and 
accurate. 

MLX prompts you by asking for the programs starting ad- 
dress: enter 8192. Then MLX will prompt you again for the 
ending address: enter 11136. Finally it will ask for the 
RUNiinitialization address: enter 10240. Start entering 
numbers exactly as they appear in this listing. 

The seventh number on every line is a test number. 
When you enter that, MLX uses it to check to see if every 
number was entered correctly on that line. If it was, you will 
be prompted to enter the next line. If there was a mistake, 
you will hear a beep and you will be prompted to enter the 
same set of numbers again. 


Entering Chiseler with the Assembler Editor 


If you aren’t a machine language programmer, don’t worry. 
Just enter the program from BASIC with MLX. This listing is 
included for those who are learning machine language for 
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their Atari's 6502 microprocessor. Instead of an inscrutable list 
of numbers, you can read the actual commands — with many 
remarks (which don't have to be entered), explaining exactly 
what is going on in every part of the program. 

If you've ever felt the urge to get inside the arcade 
machine and see how Pac-Man or Super Breakout achieves those 
dazzling effects, this listing is for you. Once you have actually 
gone through the process of making the computer do tricks 
just by loading the right numbers into the Accumulator and 
the X and Y registers, performing the right operations on 
them, and then storing them into the right locations in 
memory, you'll realize that putting together a fantastic arcade 
game isn’t such a mystery after all. You've got it right within 
your reach. 

This program was written entirely in machine language, 
using the Assembler Editor cartridge. It can be assembled in a 
computer with only 16K of memory, then saved as a single 
program on cassette. To accomplish this, the program is divid- 
ed into six subdivisions. This enables the 16K computer 
owner to assemble the programs without having to worry 
about running out of memory for the source code. Each unit 
must be typed in and assembled independently. This 
shouldn't be too monotonous if you read the remarks as you 
type. After all six have been assembled, the object code can 
be SAVED to cassette with this command: 


SAVE #C: < 2000,2B80 
To retrieve the object code from cassette, enter 
LOAD #C: < 2000,2B80 
These commands are utilized exactly like CLOAD and CSAVE. 


Then the command DEBUG, followed by G2800, will start 
the game. 


Program 5-1. Chiseler Using MLX 


8192:162,000,169, 000,157,000, 232 
8198: 060, 232, 224,008, 208, 248, 218 
8204:169, 255,157,000, 060, 232,117 
8210: 224,016, 208, 248, 169,000,115 
8216:133,176.169,062,133.177,106 
8227:160,009,169,000,145,176,168 
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8228: 200, 208, 251,166,177, 232,246 
234:134,177, 224, 063, 240, 238,094 
8240: 169,034,141,006,062,169, 117 
8246:033,141,007, 062,169,044, 254 
8252:141,008,062,141,009,062, 227 
8258:169,013,141,011,062,169,119 
8264:016,141,013, 062,141,023, 212 
8270:062,141,024, 062,141,025, 071 
8276:062, 141,026, 062,141,027, 031 
8282:0627,162,000,189, 201,006,198 
8288: 157,033, 062, 232, 224,005, 041 
8294: 208, 245, 169, 000,133,176, 009 
B300: 169,062, 133,177,160,042,083 
8306:169,001,145,1756, 200,192, 22 
8312:059, 208, 249, 160,062,169, 003 
8318:001,145,176,152,024,105, 217 
8324:016,168,169,001,145,176,039 
330:152,024,105,004, 168,056,135 
8336: 201,241,144, 233, 166,177,026 
8342: 232,134,177, 224,064, 240,197 
8348: 005, 160,006, 076,125,032, 048 
354:169,001,141, 242,062,141,150 
8360: 002,063,169, 000,133,176,199 
8366: 169, 062,133,177,160,103, 210 
8372:162, 068, 138,145,176, 232,077 
8378: 200, 224,095, 208, 247,160,028 
8384:163,162,147,138,145,176,099 
8390: 232, 200, 224,142, 208, 247,191 
8296:160, 223, 162,098,138,145,106 
8402:176, 232, 200, 224,113, 208,083 
8408: 247,169,063, 133,177,160,141 
8414:027,162,177,138,145,176,023 
8420: 232, 200, 224,192, 208, 247,251 
8426:169,032,1353,178,169, 060, 207 
8432:133,179,160,000,152,145, 241 
8438: 178, 200, 208, 251,169, 061,033 
8444:135,179,169,000,145,178,032 
8450: 200,192, 224, 208, 249,149, 22 
8456:032, 133,178,169, 060,133,201 
8462:179, 160,000,177,178, 208,148 
8468:008, 200,192,120, 208, 247, 227 
8474: 032,000,034,169,152,133,034 
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8480:178, 
8486:008, 
8492:032, 
8498:178, 
8504:000, 
8510:192, 
8516:034, 
8522:000, 
8528: 


8546:000, 
8552:000, 
8558:000, 


8564:000, 
8570:000, 


8576:000, 


83582:000, 


8588:000, 


8594:000, 


8600:000, 
8606:000, 


8612:000, 


8618:000, 
8624:000, 


8630:000, 
8636:000, 
8642:000, 
8648:000, 
8654:000, 


8660:000, 
8666:000, 
8672:000, 


8678:000, 


8684:000, 
8690:000, 
8696:000, 
8702:000, 
8708:169, 
8714:177, 
8720:120, 
8726:255, 
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160,000, 
200,192, 
049,034, 
169,061, 


192, 
8534:034, 
8540:000, 


ivT 
120, 
149, 
‘77, 
120, 
O96, 
000, 
000, 
000, 
ooo, 
000, 
ooo, 
000, 
000, 
000, 
000, 
ooo, 
ooo, 
000, 
000, 
a00, 
O00, 
O00, 
000, 
ooo, 
000, 
O00, 
O00, 
o00, 
O00, 
O00, 
O00, 
ooo, 
ooo, 
O60, 
178, 
208, 
145, 


178, 
208, 
136, 
178, 
208, 
O00, 
000, 
000, 
a00, 
o00, 
O00, 
000, 
000, 
000, 
000, 
O00, 
ooo, 
000, 
ooo, 
000, 
000, 
O00, 
000, 
O00, 
O00, 
000, 
000, 
000, 
ooo, 
ood, 
000, 
000, 
O00, 
149, 
133, 
208, 
PAT, 
178, 


177,178, 208,165 
120, 208, 247, 245 
169,016,133, 221 
133,179,160,162 
208,008, 200,059 
247,032,060,153 
133,178,160,110 
208,008, 200,077 
247,032,071,182 
000,000,000, 216 
000,000,000,092 
000,000,000,098 
000,000,000,104 
000,000,000,110 
000,000,000,116 
000,000,000,122 
000,000,000,128 
000,000,000,134 
9000,000,000,140 
000,000,000,146 
000,000,000,152 
000,000,000,158 
000,000,000,164 
000,000,000,170 
000,000,000,176 
000,000,000,182 
000,000,000,188 
000,000,000,194 
000,000,000, 200 
000,000,000, 206 
000,000,000, 212 
000,000,000, 218 
000,000,000, 224 
000,000,000, 230 
000,000,000, 236 
000,000,000, 242 
000,000,000, 248 
032,133,178,254 
179,160,000,193 
034,200,192, 231 
160,000,169,152 
200,192,120,088 
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B7 S23 
8738: 
8744: 
8750: 
87356: 
8742: 
8768: 
8774: 
8780: 
8786: 
8792: 
8798: 
8804: 
8810: 
BB816: 
BB22: 
8828: 
8834: 
8840: 
8846: 
8852: 
8858: 
8844: 
8870: 
8876: 
8882: 
8888: 
8894: 
8900: 
8906: 
B912: 
8918: 
8924: 
8930: 
8936: 
8942: 
8948: 
8954: 
89460: 
S966: 
S972: 
8978: 
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208,249,169, 
006,173,209, 
240,006,056, 
209,006,096, 
178,169,960, 
008,034,169, 
169,061,132, 
034,169,136, 
O61, 133. 1/95 
900,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
900,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
900,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,900,000, 
000,000,000, 
900,000,000, 
000,000,000, 
000,000,000, 
000,000,000, 
000,900,000, 
169,962,141, 
001,141,008, 
141, 292,002, 
192,902,141, 


041,141, 
006,201, 
225,001, 
169,152, 
133,179, 
O16, 133, 
179,076, 
155,178, 
076,008, 
000,000, 
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10988: 000, 000, 000, 000,000, 000, 236 
10994: 000, 000, 000, 000,000, 000, 242 
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Part Five 


11000: 000,000, 000,000, 000, 000, 248 
11006:000,000,169,112,141,000,164 
11012:006,141,001,006, 169,198,013 
11018:141,002,006,169,000,141,213 
11024: 003,006, 169,062,141,004,145 
11030:006,169,134,141,005, 006, 227 
11036: 169,006,141,006,006,141,241 
11042:007,006, 141,008, 006,141,087 
11048: 009, 006,141,010,006, 169,125 
11054:134,141,011,006,169,006,001 
11060: 162,000,157, 012, 006, 232,109 
11066: 224,017, 208, 248, 169, 065, 221 
11072:141,029,006, 169,000,141,038 
11078: 030,006, 169,006,141,031,197 
11084:006,1469,000,141,047,002,185 
11090:141,048,002,169,006,141,077 
11096: 049,002, 169,064,141,000,001 
11102:002,169,039,141,001,002,192 
11108:169,192,141,014, 212,169,229 
11114:034,141,047,002,096,000,170 
11120:000, 000, 000,000,000,000,112 
11126:000, 000,000, 000,000,000,118 
11132:000, 000,000, 000,000,000,124 


Program 5-2a. Chiseler Using Assembler Editor 
— Program Control 


9 
& 
a6 


28 ;PROGRAM CONTROL 


wa 
& 


4G *x=$289G 

58 PTRGST=%6C2 
68 BALOFS=#6A2 
76 BALLNB=%6C9 
89 PDLCNT=%23B8 
968 LAUNCH=$6C3 
$198 STIMER=53279 
6118 BRKFR@=%6C8 
$128 PTRIG#=$27C 
8136 ATRACT=%4D 
8148 BALLS=$6AF 
8158 NOMORE=$6C7 
@166 BALIFE=%6A4 
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G17 
8186 
8196 
B2BG 
4219 
G22G 
8238 
B24 
8258 
82608 
8276 
82589 
G278 
BSG 
G31 
B328 
8338 
G34 
G@359 
8366 
6376 
8388 
8398 
BABS 
G41 
G426 
G4308 
G446 
8459 
G44B 
6476 
G48G 
8496 
s590G 
863516 
G326 
G353568 
G9546 
G8359 
G56 
63768 
G38 
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Part Five 


SCRCNT=%2A99 
SCRNPL=$B9 
SCRNPH=$Bi 
BALSPD=#64Di1 
HIGH1=#6C9 
RSTFR@Q=#6D2 
TMPDLY=#6D3 
BLiIVPS=#6B4 
AUDCTL=$D298 
BREVAL=%6D5 
STDLST=42B89 
SETPLF=%2999 
SETPMG=$230869 
BALLCT=%2499 
BRKCNT=%2696 


;SET UP DISPLAY 


JSR STDLST 


3 
sSET HIGH SEGRE 


LDX #86 
LDA ##59 


LIst 


EQUAL TO #§8994 


CLRHGH STA HIGHI1, xX 


INX 
CPX #5 
BNE CLRHGH 


ue 


START LDA #6 
STA AUDCTL 


THIS IS THE INTRODUCTION TO 
THE MAIN LOOP 


SET THE AUDIO CONTROL 


; SET BALL NUMBER TO 1 


LDA #1 
STA BALLNE 


3 
;SET BALL SPEED 


LDA #296 
STA BALSPD 


Part Five 


8598 ;SET PLAYFIELD 
G459D JSR SETPLF 

GS1GB 5 

6428 ;SET P/M GRAPHICS 
GS3G JSR SETPMG 

G86498 ; 

8658 ;CLEAR BRICK RESET FREQUENCY 
BS46H LDA #9 

B&75 STA RSTFRO@ 

G63G 5 

8698 3;SET AUDIO CONTROL 
87GD LDA ##A6 

8718 STA #D2OG1 

go72B STA #D283 

G73 LDA ##AA 

G74G STA $D265 

8758 STA #D297 

G@746B 5; 

9776 ;MAKE SURE FREQUENCY IS OFF 
6789 LDA #96 

8798 STA #$D296 

GBdG STA #$D2682 

9819 STA #D284 

6829 STA #$D29864 

G@830 ; 

98848 ;WAIT FOR PADDLE TRIGGER 
8858 TRGCNT JSR PDLCNT 
G§B6B LDA PTRIGS 

G87 BNE TRGCNT 

6889 ; 

86890 ;SHOW THAT BALL 1 
6996 ;HAS BEEN LAUNCHED 
G91 LDA #1 

BI2B STA LAUNCH 

G93G ; 

6948 ;THE MAIN LOOP 
6959 ; 

$96@ ;SET SCREEN POINTER TO S3E9@¢ 
@97G MAINLP LDA ##@9 
8989 STA SCRNPL 

B99 LDA ##3E 

1996 STA SCRNPH 
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19196 
19296 
1936 
1946 
19596 
1466 
18978 
1986 
1899 
11996 
1119 
11298 
11396 
1146 
1159 
11696 
1176 
1189 
1196 
1296 
12196 
1229 
1236 
1248 
1256 
1266 
12786 
1289 
1298 
1366 
1316 
1326 
1336 
1346 
13598 
1366 
1376 
1386 
1396 
1466 
1416 
1426 
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Part Five 


;DISPLAY BALL NUMBER 

LDA BALLNB 

ELE 

ADC ##16 

LDY ##D ; DISPLAY 


STA (SCRNPL),Y ;BALL NUMBER 
2 

3; IF A BLOCK HAS RECENTLY BEEN 
sRESET, THEN PRODUCE SOUND 
LDX RSTFR@ 

BE@® NOSND 

DEX 

STX RSTFRO 

LDA ##3C 

STA #D296 

JMP FIXATC 
NOSND LDA #96 

STA #D296 

bd 
s INHIBIT ATTRACT MODE 
FIXATC LDA #8 

STA ATRACT 

3 

; TURN OFF FREQUENCY 
STA #D2996 

STA #D2962 

STA #£D294 


; ENABLE BALL 1 CONTROL 
BALCNT LDA #96 
STA BALOFS 


rd 


sUPDATE BALL 17S STATUS 
JSR GETFR@ 
JSR BALLCT 
JSR BRECNT 


3 

;ENABLE BALL 2 CONTROL 
LDX #1 

STX BALOFS 


1439 
1449 
1459 
1469 
1476 
1486 
1499 
15969 
1516 
15296 
1539 
15496 
15596 
1566 
15798 
1586 
15998 
1699 
1619 
1626 
14636 
1646 
1659 
1669 
1679 
1689 
14996 
1799 
17196 
1728 
1736 
1748 
1756 
1768 
1778 
1786 
1799 
1899 
1819 
1826 
183@ 
1849 


;HAS 
LDA 
BEG 


Part Five 


BALL 2 BEEN LAUNCHED? 
LAUNCH, X 
CHKLN2 


s;IF SO, THEN UPDATE ITS STATUS 


JSR 
JSR 
JSR 


a 


GETFR® 
BALLCT 
BRECNT 


; FOLLOW THE SAME PROCEDURE FOR 
; BALLS THREE AND FOUR 
CHELN2 LDX #2 


STX 
LDA 
BEQ 
JSR 
JSR 
JSR 


BALOFS 
LAUNCH, X 
CHKLNS 
GETFRO 
BALLCT 
BRKCNT 


CHELNS LDX #3 


STX 
LDA 
BEQ 
JSR 
JSR 
JSR 


BALOFS 
LAUNCH, X 
CHKEND 
GETFR@ 
BALLCT 
BRKCNT 


3 
;CHECK IF ANY BALLS 


; ARE 


STILL ALIVE 


CHKEND LDA NOMORE 


BEQ 
LDX 


DELAY 
#D 


LFECHEK LDA BALIFE, X 


BNE 
INX 
CPX 
BNE 
JMP 


CHEVOD 


#4 
LFECHE 
DEAD 


CHEVOD LDA LAUNCH, X 


BNE 
INX 
CPx 
BNE 


DELAY 


#4 
LFECHEK 
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18598 
1866 
1876 
1889 
1896 
19966 
19196 
1926 
1936 
1946 
1956 
19766 
19796 
1986 
1998 
2OBaS 
28168 
2928 
2836 
2B48 
2958 
2868 
2876 
298G 
2998 
2190 
2116 
2126 
2136 
2146 
21596 
2169 
zZ2172 
2188 
2196 
2260 
2219 
Paap 

2236 
2246 
225968 
2268 
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Part Five 


JMP DEAD 
DEAD LDA BALLNB 
CMP #5 

BNE GTPTRG 


;ALL BALLS ARE DEAD 

;DISPLAY "GAME OVER" 
LDA #%6 
STA SCRNPL 
LDA #$3E 
STA SCRNPH 
LDY #@ 

GMEOVR LDA #%#27 ;G 
STA (SCRNPL),Y 
INY 
LDA ##21 ;A 
STA (SCRNPL),Y 
INY 
LDA ##2D ;M 
STA (SCRNPL),Y 
INY 
LDA #%25 ;E 
STA (SCRNPL),Y 
INY 
INY 
LDA ##2F ;0 
STA (SCRNPL).Y 
INY 
LDA ##36 ;V 
STA (SCRNPL),Y 
INY 
LDA #$25 ;E 
STA (SCRNPL),Y 
INY 
LDA ##32 ;R 
STA (SCRNPL),Y 


sWAIT FOR USER TO PRESS START 
CHESTM JSR PDLCNT 

LDA STIMER 

CMP #6 

BNE CHESTM 


2279 
22868 
2296 
253988 
23196 
2528 
2338 
2346 
23568 
2366 
23768 
2386 
2398 
2499 
2416 
2426 
243g 
2446 
24564 
2468 
24798 
24898 
2496 
2098 
2519 
25268 
2938 
25498 
2958 
20668 
272 
2589 
25990 
26988 
2616 
2626 
2639 
2646 
2658 
2666 
2676 
2686 


Part Five 


:START OVER 
IMP START 


;ALL BALLS ARE DEAD, BUT NOT 
;ALL BALL SETS . 

sWAIT FOR TRIGGER OR START KEEY 
GTPTRG JSR PDLCNT 

LDA STIMER 

CMP #6 

BNE TRIGER 


s START GVER 
JMP START 
TRIGER LDA FPTRIGS 
BNE GTPTRG 
3 
; INCREMENT BALL NUMBER 
LDX BALLNB 
INX 
STX BALLNB 


; RESET 

JSR SETPMG 

3 

;DELAY PROGRAM EXECUTION 
DELAY LDX BALSPD 
STX TMPDLY 

DLY1 

JSR PDLCNT 

LDA STIMER 

CMP #6 

BNE CNTDLY 

IMP START 
CNTDLY LDY ##AG 
DLY2 DEY 

BNE DLY2 

LDX TMPDLY 

DEX 

STX TMFPDLY 

BNE DLY1 


“aa 
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Part Five 


2698 :EXECUTE MAIN LOOP AGAIN 
2788 IMP MAINLP 

2718 ; 

2726 ;SET BRICK FREQUENCY 
2738 ;AND BRICK VALUE 
274 GETFR@ LDA BLiVPS, xX 
2758 CLC 

276 CMP ##5¢ 

2778 BCS FRO? 

278G LDA ##48 

2798 STA BRKFRO 

2866 LDA #5 ;ADD 1 TO COMPENSATE 
2819 STA BRKVAL ;FOR OFFSET 
2826 RTS 

2839 FR@2 CLC 

2843 CMP #444 

2858 BCS FROS 

2868 LDA ##4C 

2878 STA BRKFRG@ 

2889 LDA #4 

2898 STA BRKVAL 

2999 RTS 

2918 FR@3 CLC 

2928 CMP #$89 

29368 BCS FRQ4 

2948 LDA ##9¢ 

2958 STA BRKFRO 

2968 LDA #3 

2978 STA BREKVAL 

298G RTS 

299 FRO4 LDA #$D9 

3999 STA BRKFRO 

3G1G LDA #2 

392@ STA BRKVAL 

3938 RTS 


Program 5-2b. Chiseler Using Assembler Editor 
— Display Setup 
19 


28 3;SET UP THE DISPLAY LIST 
3G 


‘ae 
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49g 
38 


78 
BS 
98 
B19 
9119 


G128 
8136 
6146 
B1i5SG 
B16G 
81798 
8186 
B1i78 
G2GB 
6218 
G228 
8238 
G24G 
GL25G 
4269 
8278 
G288 
G2998 
GIBB 
G31G 
G32 
B33G 
BS4E 
BS5G 
G36G 
G378 
GB338G 
B38 
G44GG 
86419 
G8428 
B43G 
G44 


Part Five 


X=$2BG9H 


3 
68 ;BLANK THE TOP 16 SCAN LINES 


LDA #%76 
STA #696 
STA $6061 


3 
;SET 
SIC 


UP 1 LINE OF IR MODE 6&6 (BA 


sMODE 1), ENABLE DISPLAY LIST 


LDA 
STA 
LDA 
STA 
LDA 
STA 


SET 


‘an ‘as ‘an 


LDA 
STA 


SET 
LDA 
STA 
STA 
STA 
STA 
STA 


a 
3; SET 


LDA 
STA 
3 

: SET 
LDA 
LDX 


INTERRUPT AND LOAD THE MEMORY 
SCAN COUNTER WITH #3E99 


#4C6 
$6952 
#$OG 
$603 
#E3E 
$604 


UP 1 LINE OF IR MODE 1 AND 


ENABLE 2ND DLI 


#686 
$605 


UP 3S LINES OF IR MODE 1 
#6 
$5696 
$507 
$698 
$689 
$6GA 


UP i LINE OF IR MODE 1 AND 
sENABLE SRD DLI 


#E86 
$690B 


UP 17 LINES OF IR MODE 1 
#EG 
# 


MODE17 STA #68C, X 


INX 
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84359 
84469 
8478 
8489 
B49 
G3GDB 
G316 
8529 
G3I3G 
8354 
8358 
G36 
G83579 
S388 
8598 
GGG 
8619 
Gh29 
G63G 
GBE4GB 
G45 
B56G 
8578 
8686 
G598 
8798 
8719 
G720 
G73B 
G74G 
8759 
8766 
8778 
9878S 
8796 
BBGH 
9819 
8826 
G8B3OG 
6848 
88356 
HH6G 
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Part Five 


CPX #17 
BNE MODE17 


bd 

:WAIT FOR VERTICAL BLANK, THEN 
;EXECUTE DISPLAY LIST AGAIN 
LDA ##41 

STA #61D 

LDA #466 

STA #61E 

LDA #%6 

STA $61F 
DLISTL=%239 
DLISTH=#231 
DMACTL=%22F 
NMIEN=$D4GE 
DLILOW=#299 
DLIHGH=#261 

;DISABLE DMA 

LDA #6 

STA DMACTL 


; INFORM ANTIC OF DISPLAY LIST 
; LOCATION 

STA DLISTL 

LDA #%4 

STA DLISTH 


; INFORM ANTIC OF DISPLAY LIST 
5; INTERRUPT LOCATION 

LDA ##494 

STA DLILOW 

LDA #%27 

STA DLIHGH 


3 

sENABLE DISPLAY LIST INTERUPTS 
LDA ##C®O 

STA NMIEN 

3 

; ENABLE DMA 

LDA #%22 

STA DMACTL 

RTS 


Part Five 


Program 5-2c. Chiseler Using Assembler Editor — 


Display List Interrupts 
19 ; 
26 ;DISPLAY LIST INTERRUPTS 
3@ 3 


4G DLILOW=%296 
538 CHBASE=%D469 
66 WSYNC=%D4GA 
76 COLPFS=$D6416 
88 COLPF1=%D917 
98 COLPF2=#D918 


5 
81198 sTHIS DLI WILL AFFECT 
8128 ;THE SECOND MODE LINE 
8130 *=$2746 


SAVE REGISTERS 
8169 PHA 


@29@ ;SET COLPF® (SCORE) TO GREY 
82196 ;AND COLPFi1 (HIGH) TO RED 
G22 LDA #498 

G23G LDX #438 

a24G6 STA WSYNC 

G25G STA COLPFS 

G26B SEX COLPF 


@286 :ENABLE STANDARD CHBASE 
299 LDA #%ES 

9394 STA CHBASE 

319 ; 

$328 ;ENABLE 2ND DLI 

G33G LDA #476 

2349 STA DLILOW 


3 
@369 ;RESTORE REGISTERS 
3376 PLA 
@38G TAX 
$399 PLA 
BAGG ; 
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Part Five 


941 :RETURN FROM INTERRUPT 
G@42G RTI 

GAG ; 

@44G ;THIS DLI WILL AFFECT 
G45@ ;MODE LINES 2-6 

GAbLG %*=$2779 

476 PHA 

G48G TXA 

496 PHA 

5G TYA 

9516 PHA 

O52 ; 

53% ;SET COLPF@ (WALLS) TO LIGHT BL 


$3546 ;SET COLPFi ‘(BLOCK 1) TO BLUE 
63558 ;SET COLPF2 (BLOCK 2) TO RED 
8566 LDA #£#98 

83578 LDX #%78 

8358G LDY ##389 

835998 STA WSYNC 

SoH STA COLFFS 

861 STX COLPFi1 

G626 STY ECOLPF2 

Bb3G 
G54 CHANGE CHARACTER BASE TO $3CESG 
Gb65G LDA #4#3C 

8669 STA CHBASE 

G57 
9668@ ;ENABLE 3RD DLI 
BS59G LDA ##ES 

8788 STA DLILOW 
87198 PLA 

8728 TAY 

873H PLA 

A746 TAX 

8759 PLA 

8766 RTI 


‘an 


‘as 


G77 ; 
9786 ;THIS DLI WILL AFFECT 
9798 ;MODE LINES 8-24 


BSag K=$27E6 
8818 PHA 
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Part Five 


GB28 TXA 
G83G PHA 


G8B84H 5; 
$858 ;SET COLPFS (BLOCK 3) TO VIOLET 
@86@ ;AND COLPFi (BLOCK 4) TO YELLOW 


9878 :GREEN 
$886 LDA ##58 

9896 LDX ##D8 

$948 STA WSYNC 

$918 STA COLPF1 
92 STX COLPF2 
S93G ; 

994 ;ENABLE 1ST DLI 
S958 LDA ##4¢ 

2968 STA DLILOW 
S97 PLA 

6988 TAX 

998 PLA 

1994 RTI 


Program 5-2d. Chiseler Using Assembler Editor — 
Playfield Setup 


1@ ; 
SET PLAYFIELD 


hd 
& 
a0 “an ‘ap 


4G x*=$2G99 
5@ NEWCHB=$3Cso 

68 SCRNPL=4BS 

7 SCRNPH=$Bi 

88 CHBSPL=#B2 

9@ CHBSPH=$B3 

8199 FILRW1=%2296 

119 FILRW2=$2231 

9128 FILRW3=%223C 

G1i3G FILRW4=$2247 

149 HIGH1=%6C9 

G1i5o ; 

@166 ;SET CHAR @ TO A BLANK SPACE 
Gi7S LDX #@ 

$188 LDA #$9 
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Part Five 


$19@G SBLANK STA NEWCHB, X 

G2GG  INX 

S218 CPX #8 

$226 BNE SBLANK 

G23G ; 

G24 ;SET CHAR 1 TO A SOLID SPACE 
‘9258 LDA #4FF 

$268 SSOLID STA NEWCHB, xX 

G27G INX 

S288 CPX #16 

$29 BNE SSOLID 

G3GG ; 

@31@ ;SCRNPL POINTS TO THE 
329 ;SCREEN MEMORY REGION 
G33G LDA #99 

$348 STA SCRNPL 

256 LDA #$3E 

S368 STA SCRNPH 

B37 ; 

$38@ ;CLEAR SCREEN MEMORY REGION 
39 CLRSMR LDY #46 

G49 LDA #8 

418 STRSMR STA (SCRNPL),Y 
G42G INY 

G43 BNE STRSMR 

$44 LDX SCRNPH 

G45G INX 

464 STX SCRNPH 

G@47G CPX ##3F ;SCREEN MEMORY 
@498G BEG CLRSMR 

GAIGD 
@59@ :PRINT "BALL —- #" ON TOP LINE 
$519 LDA ##22 ;:B 

G52 STA $3EG6 

539 LDA ##21 :A 

9548 STA #3E97 

@559 LDA ##2C :L 

$56G STA $3E98 :L 

578 STA $3ES9 

589 LDA ##D :- 

9596 STA #3EGB 

G69G LDA #19 3G 
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B51 
GS24 
Bo3G 
Gb64G 
B658 
G66G 
BO7H 
A58h 
GB59G 
878DH 
8718 
8726 
8738 
8746 
o758 
o768 
8778 
878a 
O798 
HBaS 
a8ig 
GB2G 
GB3G 
G8B4G 
G85 
BB6G 
GB87GB 
88S 
GBB 
BIGBB 
G91B 
4929 
GISB 
BI94G 
GISG 
A768 
697 
8986 
G99G 
1998 
1616 
16268 


Part Five 


;DISPLAY SCORE (6@92i9) 
STA #$3E4D 
STA $3E17 
STA #3E18 
STA #3E19 
STA S$3E1A 
STA #3E1B 


3; DISPLAY HIGH (XXXXX) 
LDX #9 

DSPHGH LDA HIGH1, xX 
STA #3E21,X 
INX 

CPX #5 

BNE DSPHGH 


sRESET SCREEN MEMORY POINTER 
LDA #49 

STA SCRNPL 

LDA ##3E 

STA SCRNPH 


;DRAW TOP WALL 

LDY #%2A 

LDA #1 
DRWTOP STA (SCRNPL),Y 
INY 

CPY ##3B 

BNE DRWTOF 


;DRAW LEFT AND RIGHT WALLS 
DRWALS LDY ##3E 
DRWLFT LDA #1 

STA (SCRNFL),Y 

TYA 

CLE 

ADC #16 

TAY 

LDA #1 
DRWRGT STA (SCRNPL),Y 
TYA 
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Part Five 


1938 CLC 

1948 ADC #4 
1458 Tay 

1968 SEC 

1979 CMP #$F1 
1989 BCC DRWLFT 
1996 LDX SCRNPH 
119@ INX 

1118 STX SCRNPH 
1126 CPX ##49 
1138 BEQ TWOMOR 
1149 LDY #64 
1158 JMP DRWLFT 
1169 ; 

1178 ;PERFECT WALL 
118 TWOMOR LDA #41 
1194 STA #3EF2 
1209 STA #3F92 
1218 LDA #%9 
1224 STA SCRNPL 
1239 LDA #4#3E 
1249 STA SCRNFH 


1250 ; 
126@ ;LOAD EACH BRICK ROW WITH 
1279 3:15 DISTINCT CHARACTERS 
128m ; 


129 ;ROW 1 GETS CHARS 4-12 

139% ;(#%46 IS ADDED FOR COLPF1) 
1314 LDY #647 

1228 LDX ##44 

1339 FIXRW1 TXA 

1346 STA (SCRNPL),Y 

135@ INX 

1368 INY 

1278 CPX #%53 

1386 BNE FIXRW1 

1396 ; 

1468 ;ROW 2 GETS CHARS 13-21 
1418 ;(#¢89 IS ADDED FOR COLPF?2) 
1428 LDY ##A3 

1438 LDX #4#93 

144@ FIXRW2 TXA 
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1456 
1449 
1478 
1484 
1496 
1Saa 
i516 
1528 
15368 
1546 
1558 
1S6@ 
1578 
158¢ 
is?96 
14609 
16164 
14626 
14636 
1649 
1658 
1668 
14676 
1688 
1496 
1786 
171@ 
1729 
1736 
1746 


STA 
INX 
INY 
CFrX 
BNE 


> ROW 


Part Five 


(SCRNPL).Y 


#$A2 
FIXRW2 


=> USES CHARS 22-36 


3; (ADD ##4@ FOR COLPF1) 


LDY 
LDX 


#¢DF 
#E62 


FIXRWS TXA 


STA 
INX 
INY 
CPX 
BNE 
LDA 
STA 


3 
; ROW 


(SCRNPL) .¥ 


#671 
FIXRWS 
#3 3F 
SCRNPH 


4 USES CHARS 31-3F 


; (ADD ##8@ FOR COLPF2) 


LDY 
LDX 


#615 
#¢B1 


FIXRW4 TXA 


STA 
INX 
INY 
CPX 
BNE 


(SCRNPL),Y 


#EC8 
FIXRW4 


1758 ; CLEAR CHARACTER BASE 
;FROM $3C2a8-S3DFF 


1766 
1776 
17864 
1798 
1868 
1814 
1826 
1836 
1848 
18ss@ 
1869 


LDA 
STA 
LDA 
STA 
LDY 
TYA 


#ELD 
CHBESPL 
#$3C 
CHBSPH 
Hi 


CLRCHB STA (CHBSPL),Y 


INY 
BNE 
LDA 


CLRCHE 
#ESD 


161 


18726 
1886 
18964 
1994 
19194 
1926 
193@ 
1946 
1956 
19768 
1976 
19864 
1996 
2BOe 
2816 
282g 
2838 
2948 
2858 
28608 
2878 
PUB 
2898 
21ga 
2114 
2126 
2136 
2146 
2154 
2168 
2176 
2188 
2196 
22S 
2eLD 
222 

22368 
2249 
2258 
22668 
22/78 
2288 
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Part Five 


STA CHBSPH 

LDA #24 
CHBTWO STA (CHESPL),Y 
INY 

CFY #4ES 

BNE CHBTWO 


s;CHECK IF ANY ROWS HAVE BEEN 
; CLEARED. IF THEY HAVE, THEN 
SRESET THEM 
CHERWi LDA #424 
STA CHBSPL 
LDA ##3C 
STA CHBESPH 
LDY #4 
GETRW1i LDA {(CHESPL),Y 
BNE CHERW2 
INY 
CPY #128 ;CHECK 128 BRICKS 
BNE GETRWI 
JSR FILRW1 
CHERW2 LDA ##98 
STA CHBSPL 
LDY #8 
GETRWS LDA (CCHBSPL),Y 
BNE CHERWS 
INY 
CPY #129 
BNE GETRW2 
JSR FILRW2 
CHERWS LDA ##124 
STA CHBSPL 
LDA ##3D 
STA CHBSPH 
LDY #8 
GETRWS LDA (CHBSPL),Y 
BNE CHERW4 
INY 
CPY #129 
BNE GETRWS 
JSR FILRWS 
CHERW4 LDA #488 


Part Five 


2296 STA EHBSPL 

2398 LDY #6 

2318 GETRW4 LDA (CHBSPL),Y 
25326 BNE PINIDSH 

2336 INY 

23468 CPY #1264 

2o08 BNE GETRW4 

2366 JSR FILRW4 

2576 FINISH RTS 


Program 5-2e. Chiseler Using Assembler Editor — 


Reset Brick Rows 
1m 5 
26 ;SHOULD BRICK ROWS BE RESET? 


tl 
S 


49 X=$22959 

538 CHBSPL=#B2 

66 CHBSPH=$83 

78 BALSPD=$6D1 
84 RSTFRO=#46D2 


3 
19 ;MAKE CHARACTER BASE POINTER 
$116 ;POINT TO BRICK ROW 1 
126 BRKROW LDA #$2¢ 
B13 STA CHBSPL 
14S LDA ##3C 
$158 STA CHBSPH 
$17 ;1S BRICK ROW CLEAR? 
G18 SETY LDY ##6 
$199 CHKROW LDA (CHBSPL),Y 
G2GGB ; 
@21@ ;IF NOT THEN RETURN 
B22 BNE NOTCLR 
4236 INY 
S246 CPY #%78 
$256 BNE CHEROW 
B26D ; 


& 
~_ 
o 
& 


IF SO, THEN REFILL BRICK ROW 
8288 LDY #49 
B298 LDA #4FF 
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B5GB 
GI1¢G 
G326 
BS3G 
GB24G 
8359 
GB36G8 
G376 
G@386 
GBS9G 
G4ABS 
B41 
8426 
45g 
B44G 
8459 
GB46H 
476 
8486 
BAG 
BIGBB 
g5168 
8529 
GI28 
G546 
G5358 
B36H 
63768 
G588 
G598 
BSG 
6198 
GS2G 
Bb36 
B546 
8656 
G56 
857 
G488 
Bo98 
7 BB 
a716 
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FILROW STA (CHBSPL),Y 
INY 
CPY #478 
BNE FILROW 


sPRODUCE SOUND TO CORRESPOND 
SWITH RESET 

LDA ##29 

STA RSTFRO 


;SPEED UP BALLS 

LDA BALSFD 

CMP #1 

BE@ NOTCLR 

SEC 

SBC #1 

STA BALSPD 
NOTCLR RTS 

3 

;MAKE CHARACTER BASE POINTER 
;POINT TO BRICK ROW 2 
BRERW2 LDA ##98 


eT ruocp! 
oat Uereareae 


LDA ##3C 
STA CHBSPH 
IMP SETY 


2 


;MAKE CHARACTER BASE POINTER 
sPOINT TO BRICK ROW 3 
BRERWS LDA #%18 

STA CHBSPL 

LDA ##3D 

STA CHBSPH 

JMP SETY 


;MAKE CHARACTER BASE POINTER 
;POINT TO BRICK ROW 4 

BRKRW4 LDA #%#88 

STA CHBESPFL 

LDA ##3D 

STA CHBSPH 

JMP SETY 
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Program 5-2f. Chiseler Using Assembler Editor — 
Player/Missile Graphics 


~ 
i) 


SET PLAYER/MISSILE GRAPHICS 


bk 


2 
i) 


4G *=$2399g 

53 PMBASE=$D497 
68 PMBSPL=$B4 

7 PMBSPH=$B5 

89 GRACTL=$D61D 
9B DMACTL=$22 
@19@ SIZEPS=$D9ea8 
6118 COLPMS=%2Ce 
126 COLPM1=#2C1 
138 COLPM2=$2C2 
G14 COLPMS3=#2C3 
$158 COLPF3=#2C7 
9166 NMIEN=#D46E 
G17 PADDLS=$276 
$189 HPOSPS=sDaaGq 
198 RANDOM=$D26A 
G28S TEMP=$4Ag 
$218 PDLHPS=$6A3 
G22 BALLS=$6AF 
$238 NOMORE=$4C7 
9246 LAUNCH=$#6C3 
8256 AVOID=$6AB 
9248 BALIFE=$6A4 
@27G BLiHPS=#4Be 
@28@ BLiIVPS=$6B4 
6299 BLiHDR=#458 
@38G BLiIVDR=$4BC 
318 ; 

$326 ;ENABLE PLAYER/MISSILE DMA 
G33G LDA #62 
S34G STA DMACTL 
S258 ; 

$36 ;SET PLAYER @ (PADDLE) 
@37@ ;TO DOUBLE WIDTH 
$389 LDA #1 

398 STA SIZEPS 
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G4AGG ; 

$416 ;COLOR PADDLE ORANGE-GREEN 
426 LDA #$EF 

G43 STA COLPMS 

BAAD ; 

G45 ;COLOR BALLS WHITE 

4656 LDA #$F 

G47G STA COLPM1 

486 STA COLFM2 

496 STA COLPMS 

9599 STA COLPFS 

BS1io ; 

9528 :SET P/M BASE TO #399¢ 

9539 LDA ##3¢ 

9546 STA PMBASE 

G558 ; 

956G ;ENABLE PLAYER/MISSILE GRAFHICS 
9576 LDA #3 

$588 STA GRACTL 

S598 ; 

@69@ ;CLEAR P/M GRAPHICS TABLE 
$6518 LDA #2 

$626 STA PMBSPL 

G63G LDA ##3¢ 

$648 STA PMBSPH 

659 LDY #9 

G65 TYA 

9676 CLRPMB STA (PMBSPL),Y 

68S INY 

9699 BNE CLRPMB 

$796 LDX PMBSPH 

G71G INX 

$726 STX PMBSPH 

G973G CPX #%38 

2746 BNE CLRPMB 

G75G 
876 ;DRAW PADDLE 
9776 LDA #%FF 
G78 STA $3404 
796 STA $34C5 
G8GG STA #34C6 
$9816 LDA #$FF 
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8826 STA #34DD 

G836 STA #34DE 

68468 STA #34DF 

8858 ; 

886@ ;MAKE SURE BALLS DON’T LAUNCH 
08704 ;BEFORE THEIR TIME IS DUE 
s88a LDA #86 

GEIS STA #6C4 ;LAUNCH+1 

BIBS STA #6C5 

4918 STA #6C6 

HI2G 5 

9938 3;WHEN NOMORE=1, NO MORE BALLS 
6940 3;WILL BE LAUNCHED. NOMORE WILL 
6954 ;BE SET TO 1 WHEN USER MISSES 
G@968 3;A BALL 

BI7B STA NOMORE 


98H ; 

6999 ;BALLS HOLDS THE NUMBER OF BALL 
S 

199 ;ON THE FIELD AT ONE TIME 

191@ ;THIS WILL BE INITIALIZED TO 1 


1@28 LDA #1 

1936 STA BALLS 

1949 ; 

1956 ;SET EACH BALL TO A RANDOM 
196@ ;HORIZONTAL FOSITION 

1979 ;BETWEEN #$4B AND ##BA 
1986 LDX #6 

1996 RNDHPS LDA RANDOM 

1198 SEC 

1119 CMP ##465 

112@ BCC RNDHPS 

113@ CLC 

1146 CMP #4#BA 

1159 BCS RNDHPS 

1169 STA BLiHPS, xX 

1178 INX 

1189 CPX #4 

1198 BNE RNDHPS 

1299 ; 

1219 ;SET EACH BALL’S VERTICAL 
1229 ;POSITION TO TOP OF FIELD 
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1236 
1246 
12564 
1269 
1276 
1284 
1296 
1366 
1319 
1326 
13396 
1346 
1354 
1366 
1376 
13894 
1396 
1499 
141% 
14296 
1439 
1446 
1456 
1466 
1476 
1486 
14968 
1598 
1516 
1529 
1536 
15496 
1559 
15469 
1S7a 
i586 
1599 
146896 
16196 
1629 
1636 
16496 
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LDX #96 
FIXVPS LDA #%2F 
STA BLIVPS, X 


;BALLS MUST AVOID BRICKS 
;UNTIL THEY HIT THE PADDLE 
LDA ##7¢ 

STA AVOID, X 

INX 

CPX #4 

BNE FIXVPS 


:SET EACH BALL TO A RANDOM 
sHORIZONTAL DIRECTION 

LDX #@ 
RNDHDR LDA RANDOM 

AND #1 

STA BLIHDR, X 

INX 

CPX #4 

BNE RNDHDR 


sALL BALLS MUST MOVE DOWN 
s;WHEN THEY ARE LAUNCHED 
LDX #6 
FIXVDR LDA #1 

STA BLIVDR, X 

INX 

CPX #4 

BNE FIXVDR 


;GIVE EACH BALL LIFE 

LDX #6 
ACTVTE LDA #1 

STA BALIFE, X 

INX 

CPX #4 

BNE ACTYVTE 

sHORIZONTAL PADDLE POSITION 
sMUST CORRESPOND TO FADDLE @ 
PDLCNT LDA PADDLS 

LSR A 


165@ 
1666 
14679 
1689 
1496 
1796 
1719 
1726 
1730 
1746 
17596 
1766 
17796 
17864 
1796 
1899 


CLC 
ADC 
STA 
LDA 
SEC 
SBC 
SEC 
CMP 
BCC 
LDA 
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#46 
TEMP 
#SFF 


TEMP 
#$B1 


STRHPS 
#$B1 


STRHPS STA HPOSPS 


b J 
; THE 


POSITION OF THE PADDLE 


;WILL BE NEEDED LATER 


STA 
RTS 


PDLHPS 
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Closeout 


L.L. Beh 


“Closeout” is a fast action game which has been enjoyed by both 
children and adults. 


This program just fits into a 16K Atari. Almost all lines con- 
tain multiple statements, so make no alterations unless you 
have a bigger machine. 


Scrambling for Bargains 


There's a huge sale going on at a local department store. You 
arrive at the multistory building hungry for bargains. Boldly, 
you enter the store and look around — and see bargains 
galore. A real sale! You start gathering up sale items, but then 
become aware of a strange group of shoppers. Wherever you 
go, they follow you around. Soon you learn their true inten- 
tions — they are out to stop you at all costs, so they can 

have the store to themselves. What's worse, they’re armed 
with ray guns from the Toy Department which are modified 
to work. 

The object of “Closeout” is to snatch up as many sale 
items as possible while evading the hostile bargain hunters. 
Don't let them get too close, because. they'll either capture you 
or shoot you. Some of them can shoot farther than others. 
You can shoot back with the slingshot you bought in the 
Sporting Goods Department (50 percent off), but since 
slingshots require two hands to shoot, you must drop 25 sale 
items each time you use it. 

You have only one chance and about three minutes of 
play. Extra time is awarded for higher scores. The remaining 
time is indicated on the left, and colors change as time runs 
out (there can be up to nine different colors on the screen at 
a time). When your score surpasses 25 points, you can shoot 
your slingshot, but remember, it costs you 25 points. You can 
only shoot horizontally, by aiming the joystick and pressing 
the fire button. The best strategy is to shoot only when 
cornered. 
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How many bargains can you find in “Closeout”? 


After you have typed in the program, save it twice on a 
disk or tape, then type RUN. There will be a short initializa- 
tion pause, and the screen will clear to GRAPHICS 7. The 
four players will appear, and the floors and stairways will be 
drawn. Short instructions will appear. Plug your joystick into 
port one. Press the fire button to start. 

Your shopper is on the ground floor in the bottom left 
corner. Use the joystick to move left and right, or up and 
down stairs. You must be directly under the stairs to use 
them, and to exit onto a floor you must be standing exactly 
on it. 

The program might run faster on U.S. Ataris than on my 
New Zealand model. American televisions use the NTSC 
standard, which allows 60 vertical blank interrupts per se- 
cond, while New Zealand’s PAL standard allows only 50. On 
the other hand, the 6502 Central Processing Unit chip in our 
Ataris is clocked at three megahertz, as opposed to 1.8 MHz 
in U.S. Ataris, so the two factors might cancel each other out. 

Good luck! I’d like to know who can better my score of 
1200 points. 

Since I omitted REM statements from the program to save 
space, here is a short explanation: 


sal 


Line 


109-114 


209 


210-215 


Part Five 


Comments 


Initialize. Jump to line 209 to POKE in the P/M utility and 
player shapes, then to line 112 to wait for the trigger to be 
pressed to start the game. These jumps keep the lower 
numbered lines free for frequently accessed statements. 
Check for your moves up the stairs. 

Check for your moves down the stairs. 

Check for enemy movement on the left stairs. 

Check for enemy movement on the right stairs and also 
give the enemy some brainpower. 

Check for enemy movement on the middle stairs. 

Read joystick zero (leftmost slot) to determine your moves. 
Change this reading here and at two other locations if you 
want to use any other slot for the game. 

Use BASIC LOCATE statement to determine points scored. 
If the sale items run low, draw some more. 

Determine movement of Player 2 — Enemy No. 1. 
Determine movement of Player 3 — Enemy No. 2. 
Determine movement of Player 4 — Enemy No. 3. 

Check if you can shoot. 

Check to see if you are in the enemy shooting range. Note: 
Some enemies can shoot farther than others. 

Game timekeeper. 

Go back to start of loop. 

Draw dots — sale items. 

Draw time bar graph and erase the portion of time that 
has run out; also award extra time for high scores. 

You got shot! So these lines get you off the visible side of 
the screen, and wait for the trigger to be pressed to start a 
new game. 

Only simple constants and variables are used in the pro- 
gram. These constants and variables are used all over the 
place to conserve RAM; they are also used for the line 
numbers. These make the program look very untidy, but 
this is the only way I can get this program to run on my 
16K Atari. 

POKE the P/M utility and players’ shapes and colors into 
RAM. 


216-225 Constants and variables for the stairs and building levels; 


230 


draw it out in Graphics 7. 
Data for P/M graphics utility. 


236-237 Last eight DATAs in line 236 and all of line 237 are for the 
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P/M shapes. Change these if you like different shapes. 
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Program 5-3. Closeout 


19 GRAPHICS 7:SETCOLOR 2,4,@:POKE 75 
2,1? "{14 SPACES;CLOSEOQUT!":GOSUB 
249:GOSUB 112:Y1=181:GOTO C 
26 IF Xi=J THEN IF YitA AND Y1i<=B OR 
Yi>C AND Y1i¢=D OR Y1i>E AND Yi1<=I 
THEN Y1=Y1-3:RETURN 
21 IF X1=bL THEN IF Yi+A AND Y1<=E OR 
Y1i>F AND Y1ie«=I THEN Y1=Y1-S3:RETU 
RN 
22 IF Xi=kK THEN IF Yi?tA AND Y1i<c=6 TH 
EN Y1i=Yi-3: RETURN 
vrs RETURN 
38 IF Xi=J THEN IF Yi?>=A AND Y1i<B OR 
Yi>=C AND Y1<¢D OR Y1i>=E AND Yi<I 
THEN Y1=Y1+3: RETURN 
31 IF X1i=K THEN IF Y1i?+=A AND Y1<¢<G TH 
EN Y1i=Yi+t+3:RETURN 
S32 IF Xi=L THEN IF Yit=A AND YiIi<E OR 
Y1>=F AND Y1i<¢<I THEN Y1=Y1+3 
33 RETURN 
37 IF YS=I OR YS=H OR YS=G OR YS=F QO 
R YS=E OR YS=D OR YS=C OR YS=B OR 
YS=A THEN GOSUB 42: RETURN 
41 RETURN 
2 Z=INTC(RND(#)*3):1IF Z=@8 THEN IF Y5 
=I OR YS=H OR YS=G OR YS=F OR YS= 
D OR YS=B THEN X9=@: Y9=-3: RETURN 
43 IF Z=i THEN IF YS=A OR YS=C OR YS 
=E OR YS=F OR YS=G OR YS=H THEN X 
9=G: Y9=3: RETURN 
44 X9=4:Y9=6:RETURN 
55 IF YS=I OR YS=H OR YS=G OR YS=F O 
R YS=E OR YS=D OR YS=C OR YS=B OR 
YS=A THEN GOSUB 57 
5&6 RETURN 
57 IF YS?Y1 THEN IF YS=B OR YS=C OR 
YS=D OR YS=E OR YS=G OR YS=H OR Y 
S=I THEN X9=@: Y9=-3: RETURN 
58 IF yY5S<Yi THEN IF YS=A OR YS=B OR- 
YS=C OR YS=D OR YS=F OR YS=G OR Y 
S=H THEN X9=@: Y9=3: RETURN 
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39 
66 


61 
62 


63 


64 


65 
73 


74 


73 


76 


78 


B4 


B85 


1/4 
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X9=-4: Y9=6: RETURN 

IF YS5=G OR YS=F OR YS=E OR YS=D O 
R YS=C OR YS=B OR YS=A THEN GOSUB 
62 

RETURN 

Z=INT(RND(@)%*4):1F Z=@ THEN IF YS 
=E OR YS=F OR YS=D OR YS=C OR YS= 
B OR YS=A THEN X9=@:Y9=3: RETURN 


IF Z=1 THEN IF YS=B OR YS=C OR Y5 
=D OR YS=E OR YS=G6 OR YS=F THEN X 
9=6: Y9=—-3:RETURN 

IF Z=2 THEN X9=-4:Y9=6:RETURN 
X9=4: Y9=G: RETURN 

S=STICK(@):IF S=14 OR S=18 OR S=6 
THEN GOSUE 29 

IF S=13 OR S=9 OR S=5 THEN GOSUB 
3a 

IF S=7 AND X1i<bL THEN IF Yi=A OR Y 
1=B OR Yi=C OR Yi=D GOR Y1i=E OR Yi 

=F OR Y1i=G OR Yi=H OR Yi=i THEN X 
1=X1+4 

IF S=1i1 AND X1i+JI THEN IF Yi=A OR 
Y1=B OR Yi=C OR Yi=D GR Yi=E OR Y 
1=F OR Y1i=G OR Yi=H OR Y1=I THEN 
X1=X1-4 
Q@=X1-42:R=(Y1-25)/2:LOCATE O,R,Z: 
IF Z=1 THEN COLOR 4:PLOT O,R:T=T+ 
1:T1i=T1+1:? "SALE ITEMS="3:7? T 

IF Ti>T2 THEN GOSUB 1696 

POKE 77,@:POKE M,X1:POKE N,Y1:SOU 
ND @,Y1,1@,7:1F X2=J3 THEN YS=yY2: 
9=X7:2Y9=Y7:GOSUB A:X7=X9:Y7=Y9 

IF X2=K THEN YS=Y2s: X9=X7:Y9=Y7:G60 
SUB 64: X7=X9:Y7=Y9 

IF X2=L THEN YS=Y2: X9=X7:Y9=Y7:60 
SUB B:X7=X9:Y7=Y9 
X2=X24+X7:2:Y2=Y2+Y7:POKE M+1,X2:POK 
E N+i,Y2:IF X3=J THEN YS=Y3:X?=X8s 
:Y9=Y8:GOSUB A:X8=X9:Y8=Y9 

IF X3=K THEN YS=Y3:X9=X8:Y9=Y8:60 
SUB 6@: X8=X9:Y8=Y9 


B& 


87 


88 


89 


9G 


93 
94 
935 
96 
oF 
199 


161 


195 


186 


1987 


188 


189 


112 
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IF X3=L THEN YS=Y¥3: X9=X8: Y9=Y8:60 
SUB 5B: X8=X9: Y8=Y9? 
XS3=X34+X8:2YS=Y3+YS:POKE Mt+t2,X3:POK 
E N+2,Y3:IF X4=J THEN YS=Y4: X9=X6 
>Y¥9=Y6:GOSUB A: X&=X9: Y6=Y9 
SOUND 9$,9,9,@:1F X4=K THEN YS=Y4: 
X9=X6: Y9=Y6:GOSUB 66: X6=X9: YS=Y9 
IF X4=L THEN YS=Y¥4: X9=X6:Y9=Y6:60 
SUB B:X46=X9:Y6=Y9 
X4=X4+X6: Y4=Y4+Y6:POKE M+3,X4: FORK 
E Nt+t3,Y4: IF STRIG($)=@ AND T?25 T 
HEN IF Yi=Y2 OR Y1i=Y3 OR Y1=Y4 TH 
EN GOSUB H 
IF Yi=Y2 AND 7@?+ABS(X1-X2) THEN U 
=X2-44:V=(Y2-31)/2:GOSUB E 
IF Yi=Y3 AND 6@7ABS¢(X1-X3) THEN U 
=X3-44:V=(Y3-31)/2:G0OSUB E 
IF Yi=Y4 AND SS5S?ABSC(X1-X4) THEN U 
=X4-44:V=(Y4-31)/2:GOSUB E 
IF PEEK (19) >A1 THEN GOSUB 195 
GOTG C 
SOUND §$,9,4,9:COLOR 1:SETCOLOR @ 
gp REL a SP 
FOR Y=6 TO 79 STEP 9:FOR W=16 TO 
148 STEP 4:PLOT W,Y:NEXT Ws: NEXT 
Y:7T1=6:RETURN 
Ci=INTC(RND(@) *15):SETCOLOR 1,C1, 
8:COLOR 4:PLOT @,V1i:DRAWTO 3,V1: 
AL=Ait+1:V1=Vit+A2sIF Ai<>41 THEN R 
ETURN 
IF T<T3S THEN GOSUB 112:RETURN 
? "EXTRA 3.5 MIN": T3=T3+T4: ? "NE 
XT BONUS AT "3:27 T3:T4=T44+196 
COLOR 2:FOR Y=6 TO 78 STEP 2:PLO 
T @,Y:DRAWTO 3,Y:NEXT Y:rA1L1=1:V1i= 
@:POKE 19,@:POKE 24,4:RETURN 
SOUND 9,2,6,15:COLOR 2:PLOT U,V: 
DRAWTO @,R:POKE M,1:POKE N,247:C 
OLOR 4:PLOT U,V:DRAWTO @,R 
SOUND 6,9,989,98:GOSUB 216:GOSUB 19 
@:7? :? “GAME OVER, SALES FOUND=" 
527 T:T=G6:7? "To play-Press FIRE" 
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113 
114 


1463 


164 


165 


181 


189 


213 
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IF STRIG(@)<>@ THEN 113 

? “Extra TIME at 246@":GOSUB 1968: 

T=6: T3=20G: T4=390: RETURN 

W=6:T=T-25:? "SALE ITEMS="5:7 T: 
IF Yi=Y2 THEN U=X2-44:V=(Y2-31)/ 

2: T1L1=M+1:J91=N+1:GOSUB I:Y2=Z:X2= 

L:RETURN 

IF Yi=Y3 THEN U=X3-44:V=(Y3-31)/ 

2:1I1i=M+2:J1=N+2:GOSUB I:Y3=Z:X3= 

L:RETURN 

IF Yi=Y4 THEN U=X4-44:V=(Y4-31)/ 

2: 1Ti=M+3:3J1=N+3:GOSUB I:Y4=Z: X4= 

L:RETURN 

SOUND 96,1,46,15:COLOR 1i:PLOT @,R: 

DRAWTO U,VsCOLOR 4:PLOT @,R:DRAW 

TO U,V:SOUND 6,9,8,@:POKE 11,1:P 

OKE J1,247 

Z=V"2+67:2:1IF Z=A OR Z=B OR Z=C OR 
Z=D OR Z=E OR Z=F OR Z=I OR Z=G6 
THEN GOSUB T2:RETURN 

V=3:GOTO 189 

A=37: B=55:C=73:D=91:E=199:F=127: 

G=145:H=163: I=181: 3J=54:K=126:L=1 

968:M=532486:N=1789: 0=-1784:P=764:T 

2=229 

? "Please wait":FOR Y=1536 TO 17 

@6:READ Z:POKE Y,Z:NEXT Y:FOR Y= 
1774 TO 1787:POKE Y,@:NEXT Y:PM= 

PEEK (19@46)-32 

PMBASE=2546*PM:FOR Y=PMBASE+1623 

TO PMBASE+2947:POKE Y,@:NEXT Y:F 

OR Y=PMBASE+1625 TO PMBASE+1@32: 

READ Z 

POKE Y,Z:NEXT Y:FOR Y=PMBASE+128 
1 TO PMBASE+1288:READ Z:POKE Y,Z 
:NEXT Y:FOR Y=PMBASE+1537 TO PMB 

ASE+1544 

READ Z:POKE Y,Z:NEXT Y:FOR Y=PMB 

ASE+1793 TO PMBASE+18@@:READ Z:P 

OKE Y,Z:NEXT Y:POKE P+2,76:POKE 

P+3, 2804 

POKE P,252:POKE P+1,14@:POKE 559 


225 


236 


231 


bd 
WA 
bh 
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»O2:POKE 623,1:POKE 1788,PM+4:PO0 
KE 533277,3:POKE 54279,PM: X=USR(1 
696) 
PORE 0O,8:POKE O+1,8:FPOKE O+2,8:P 
OKE O+3,8: RETURN 
X1=J: Yi=1:Y2=B: X2=62: Y3=E: X3=154 
2 Y4=G: X4=122: X6=4: Y6=@: X7=-4:Y7= 
@:X8=-4: Y8=G8 
COLOR 3:SETCOLOR 2,15-Ci,5S:FOR Y 
=7 TO 79 STEP 9:PLOT 4,Y:DRAWTO 
159, Y:NEXT Y 
PLOT 4,@:DRAWTO 4,79:PLOT 159,90: 
DRAWTO 159,79:PLOT 149,79:DRAWTO 
149,52:FOR Y=52 TO 79 STEP 3:PL 
OT 149,Y 
DRAWTO 159,Y:NEXT Y:PLOT 14,79:D 
RAWTO 14,43:FOR Y=43 TO 79 STEP 
3:PLOT 4,Y:DRAWTO 14, Y:NEXT Y:PL 
OT 149,43 
DRAWTO 149,7:FOR Y=7 TO 43 STEP 
3:PLOT 149,Y:DRAWTO 159,Y:NEXT Y 
:PLOT 14,7:DRAWTO 14,16:FOR Y=7 
TQ 16 STEP 3 
PLOT 4,Y:DRAWTO 14,Y:NEXT Y:PLOT 
77,7:DRAWTO 77,61:PLOT 87,7:DRA 
WTO 87,61:FOR Y=7 TO 61 STEP 3 
PLOT 77,Y:DRAWTO 87,Y:NEXT Y:PLO 
T 14,25:DRAWTO 14,34:FOR Y=25 TO 
34 STEP 3:PLOT 4,Y:DRAWTO 14,Y: 
NEXT Y:RETURN 
DATA 162,3,189, 244,66, 246,89,56,2 
21,249,6,2469,83,141,254,46,1896,14 
1,255,6,142,253,6, 24,169,9,1989,2 
53,6, 24,189 
DATA 252,6,133, 294,133, 296,189,2 
49,646,133, 283,173, 254,646,133, 285, 1 
89,248,6,179, 232,46, 255,6,144,16 
3 168,177,293 
DATA 145, 295, 169,9,145,293,136,2 
62,298, 244,76,87,46,169,8,177, 283 
5145, 26965,169,8,145, 293, 299, 292,2 
68,244,174 
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DATA 253,46,173, 254,646,157, 249,64, 1 
89,236, 6, 249,48,133, 293, 24,138,1 
41,253,6,189, 235,46,133, 204, 24,17 
3,253,6,199 

DATA 252,46,133, 294,189, 249,4,133 
,295,189, 248,6,179,169,8,177, 293 
, 145,285, 299, 292,298, 248,174,253 
»6,169,6,157 

DATA 236, 4, 262, 48,3,76,2,4,76,98 
,228,8,8,194,169,7,162,6,1469,9,3 
2,92, 278,96, 68,126, 219, 255,195, 1 
26,68, 231 

DATA 126, 219, 255,129, 126,192,195 
7129,195, 126, 99, 255, 129, 255, 69, 1 
$2,126,99,126,195, 255, 69,192,195 
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SKI! 


Charles Brannon and E.H. Foerster 


“Skil’’ is a fine-scrolling arcade-style game that lets you test your 
skill at electronic winter sports. It will run in 16K if you remove 
all REM statements. (Remove only the text; leave in the line num- 
ber and REM.) Unfortunately, Ski! will not work on an XL-model 
computer, unless you plug in an Atari BASIC cartridge. 


Ski down Pine Mountain and never leave the warmth of your 
home. That’s exactly what “Ski!” allows you to do. 

The object of Ski! is to ski down the slalom course 
without running into any rocks, trees, or other obstacles while 
trying to go between the flags. Using a joystick plugged into 
the first port to control the skier, you “gobble up” bonus 
points planted in the snow. You can move the joystick left or 
right to turn. You can also position your player up or down 
to change difficulty, points, and maneuverability. 

The higher you go, the faster the scene scrolls, and the 
more points you win. The higher speeds necessitate fast 
response. The novice will want to position himself a little 
below midway up the screen. That way, you have room to 
pull back if you need to duck. If you hit a rock, tree, or flag, 
you crash, and start over at the bottom of the screen. You 
lose fifty points for every crash. 


Up the Hill 


Every time you play the game, a random ski course is 
generated. If you wish, you can see the screen scroll in reverse 
as the course is being laid out. Your computer will buzz when 
the game is ready to play. Press FIRE to begin. 


Fine Scrolling 


Fine scrolling couples coarse scrolling (which moves the 
pointers to screen memory around) with a special feature of 
the ANTIC chip. 

To fine scroll, you set a special bit in every line of the 
display list you wish to scroll. You then scroll one scan line at 
a time by storing numbers from 0-15 in VSCROL. When you 
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A tricky maneuver between the flagpoles in “Ski!” 


reach the limit of ANTIC’s fine-scrolling resolution (8 scan 
lines in GRAPHICS 1), you reset VSCROL and then coarsely 
scroll a full eight scan lines. Coarse scrolling is described in 
COMPUTE!s Second Book of Atari. Machine language is re- 
quired for fine scrolling, since you must reset VSCROL and 
perform the coarse scroll almost simultaneously, or else you 
get a jumpy, unpleasant display. 


Interfacing to BASIC 


The fine-scrolling routine could be written as a USR state- 
ment, but BASIC would have to call it every time a scroll was 
needed, and this would be too slow. We need to periodically 
update the screen in a way that’s not dependent on BASIC. 
The Vertical Blank Interrupt (VBI) is perfect for this task. 
Every 1/60th of a second, the scroll routine is called to update 
the screen. BASIC can control the speed with memory loca- 
tion zero. POKEing a number from 1-255 controls the speed 
from one (fastest) to 255. A zero will stop the scrolling, 
although the vertical blank routine will still be “hooked up.” 
BASIC sets up the VBLANK scrolling routine by passing the 
address of the Load Memory Scan counter to change in the 
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display list (which can be found on a normal screen with 
LMS = PEEK(560) + 256*PEEK(561) + 4) and the number of 
lines to scroll. BASIC can PEEK location 1 to see how many 
full lines still need to be scrolled. 

The VBLANK routine will stop scrolling when it runs out 
of lines, and memory location 1 will hold a zero. You could 
use the machine language routine in your own programs, but 
since it is not general-purpose, you will be limited to 
unidirectional scrolling in GRAPHICS 1. Be sure to use the 
“disable routine” (A =USR(1638)) to remove the VBI routine 
from the system. 


An ANTIC Anomaly 


It’s not mentioned anywhere as far as I know, but the address 
of the start of your screen memory for fine scrolling should 
start on a 4K boundary. ANTIC apparently cannot cross a 4K 
boundary, so if your screen buffer (that holds the rocks, trees, 
etc.) is too long, ANTIC can get confused and start displaying 
nonsense. Another thing to watch for: when using a vertical 
blank routine, be sure to include a CLD (Clear Decimal) at 
the start of the program. If you don’t, your arithmetic will be 
foiled every time BASIC calls the floating point routines 
(which use BCD math). 

Strings are used extensively in the BASIC program, to pre- 
vent memory conflicts. A string is used to hold the display list, 
the screen memory area, the player/missile memory, and the 
shapes for the player. The screen memory area and the player/ 
missile address are insured to be on proper page boundaries 
by modification of the Variable Value Table. Because of this, 
line 100 must be typed first, in order for the program to work 


properly. 
Typing in Ski! 
It is extremely important that you follow these typing instruc- 
tions carefully. (It is a good idea to read all the directions 
first.) 
1. Type in Program 5-4. 
Do not run program at this time. 


2. LIST this program to disk (LIST “D:LOADER’) or 
cassette (LIST “C:”). You might want to make two copies. 
3. Turn off your computer; then turn it back on. 
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4. Type in Program 5-5. 
Do not run program at this time. 


5. LIST this program to disk (LIST “D:SKI.LST) or 
cassette (LIST “C:”). Again you may wish to make two 
copies. 

6. Type NEW and ENTER the loader (ENTER 
“D:LOADER or ENTER “C:”). 

7. RUN the loader. If it runs correctly then go to step 8; 
if it doesn’t run correctly, or the computer crashes, turn 
off your computer and then turn it back on and reENTER 
the loader and check your typing of the program. Once 
corrections have been made, complete step 2 before run- 
ning the program. 

8. Delete all remaining program lines. (Do not turn off 
your computer.) 

9. ENTER Program 5-5 (ENTER “D:SKI.LST or ENTER 

ry, 

10. RUN the program. If it runs correctly, move on to 
step 11. If it does not run correctly, or the system crashes, 
check your typing. You may have to reENTER the pro- 
gram from disk or tape. Make corrections and go back to 
step 5. 

11. Once you are certain the game RUNs correctly, SAVE 
Ski! (SAVE “D:SKI” OR CSAVE). 

12. The next time you wish to use this game, just load 
the SAVEd version of Ski!. 


Program 5-4. Loader for Ski! 


Ski! will not work on an XL-model unless an Atari BASIC cartridge is plugged into the 
slot. 


9 REM (SS) ae) 6 ee Ee Cele 

if 7? "JUST A MOMENT”":DIM A#(746) :A=1 
:B=8:C=29:FOR D=% TO 36:GOSUB 76: 
NEXT D:C=6:GOSUB 76 

26 IF Be >73882 THEN ? "CHECK ALL DAT 
A LINES":END 

38 VNTD=PEEK (132) +256XPEEK (133) 

49 A=USR(ADR(AS), 744) 

58 A=USR(ADR(AS) +22, VNTD+1,ADR(AS) ,7 
46) 

68 GOTO 189696 

78 E=G:FOR F=1 TO C:READ G:E=E+G: B=B 
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+G: A$ (A, A) =CHR$(G):A=At+1=2=NEXT F 
B8@ READ F:IF Fe >E THEN ? "CHECK DATA 
STATEMENTS AT LINE "3;198+D%*196:END 


96 RETURN 

19 DATA 194,194,178,194,168,138,162 
,134,76,129,168,194,194,179,194, 
168, 138,162,134,76, 2617 

119 DATA 253,168,1964,162,3,194,149,1 
53, 292,16, 259,56, 165, 155, 229,153 
»165, 156, 229, 154, 3926 

128 DATA 194,178,144,16,24,191,154,1 
33,154,138, 191,156,133, 156, 232, 1 
64,168,76, 227,168, 2659 

139 DATA 232,184,168,191,153,133,153 

»176,2,198,154, 152, 24,191,155,13 

3, i55, 176,2,198, 2679 

149 DATA 156,152,73. 255, 168, 248,76,7 
6,169,194,194,194,148,4, 296,177, 
138, 291,69, 298,2785 

15% DATA 249, 266, 296, 299,177,138,32, 
49,172,169,7,194,145,157,136,192 
» 2,298, 248, 56, 2823 

164 DATA 176,164, 229,149,145,157, 299 

»138,229,141,145,157, 96,112,112, 

112,79, 155. 34, 192, 2748 

176 DATA 26,144,38,38,38,38,38,38,38 
,38,38,38,38, 38,38, 38, 38,38,38,3 


8,848 

18 DATA 38,38,6,65,139,9,9,9,9,21,9G 
_8,9,8,0,8,9.¢,9,0, 307 

199 DATA G.9.6.14, 28,24, 32,9,128,9,9 
,9,9,9,8,9,G9,9,9,8, 232 

24 DATA G,G,G,6,9,9,9,9,9,9,9,9,9,9 
,9,9,9,9,9,5,G 

218 DATA 6,192,192, 229,29, 28,7,5,7,9 
,G, 24,52, 44, 69, 24,9, 16,56,56,196 


228 DATA 124,124, 254,16,16,8, 28, 62, 
2,62,8,8,9,6,56,94,196,94,116,56 
,1294 

23G DATA 6,6,119,69,117,21,119,9,9,8 

24,56,129,8,8,8,8,9,9,9,6985 
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248 


2568 
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DATA 48,98,56, 16,186, 254,89, 24,1 
56,82, 33,16,8,8,9,0, 12, 26,28,8, 1 
138 

DATA 93,127,154, 24,57, 74,132,8,1 
6,9,8, 24,69, 6G, 24, 24,68,196,99,2 
4,1236 

DATA 154,179,198,65,65,1,198, 36, 
4,161,18,156,77,19, 24, 24,9,8,6, 
,1251 

DATA 6,169,9,133,9,169,1,141,99, 
6,169,8,141,99,6,194,194,133,7,1 
4,1592 

DATA 133,46,194,194,133,1,162,18, 
169,117,169, 7, 32,92, 228, 94, 216,1 
73,4, 288, 2155 

DATA 246,4,169,9,133,8,145,8, 246 
,85,165,1, 248,81, 246,99,6,173,99 
,&, 2112 

DATA 268,73,198, 293, 248, 26,169,2 
W133, 263,173,124, 2, 288, 3,286,199 
»6,173,125, 2543 


DATA 2, 298,3, 238,199,46,173,199,4 
.141,9,298,165,9,141,99,6, 296,98 
~4,1986 

DATA 174,98, 6,142,5, 212, 298, 27,1 
68,9,56,177,6, 233, 29,145,6,169,1 
,i7¥, 2825 

DATA 6, 233,9,145,6,169,7,141,98, 
6,141,5, 212,198,1,76, 98, 228,9,G, 
177 

DATA @,9,194,162, 228, 149,98,149, 
7, 32592, 228, 96, 173, 10,219, 41,3,2 
1,3, 2917 

DATA 176, 247, 96,179,149,72, 224,1 
»248,6,169,73,144,2,169,9,145, 29 
3,96,165, 2567 

DATA 206,133, 245,173,19,219,41,7 
,24,195,6,168, 149,134,145, 293,17 
3,19, 218,48, 23989 

DATA 14,169, 23,133, 287,169,18,13 
3,298,169,22,133, 299, 298,12,149, 


4 i 


43a 


44a 


460 


479 

1996 
1918 
1426 


1636 
19496 


19596 
1460 
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17,133, 287,169, 2522 
DATA 22,133, 248,169,18,133,289,5 
6,152,229, 299,168,162,3,152, 24,1 
G1, 287,168,169, 2692 

DATA 294,145, 263,152, 24,191, 288, 
168,169, 294,145, 293, 242, 298, 235, 
96,194,194,133, 284,3212 

DATA 164,133, 293.169.9,133.295.1 
69, 24,133, 296,32,113,6,168, 32,11 
3,6,32,123, 2194 
DATA 6,136,16, 247,169,17,32,113, 
6,201,1,249,4, 296,144,1,298,52,1 
13,6,1875 
DATA 32,123,646, 296,192, 26,298, 245 
~173,19, 216, 201,13,1746,18, 24,145 
, 295,195,198, 2336 
DATA 197, 296,176,9,32,139, 4, 244, 
52,298, 2,298,194,173,168, 219,281, 
25,176,4, 24498 
DATA 169,7, 298, 26,173,189, 219, 291 
»25,176,4,169,198, 298,9,173,19,21 
@, 201,25, 2218 
DATA 176,19,169,139,178,173,19,2 
19,41,15,281,12,176, 247, 24,195,353 
»168,138,145, 2341 
DATA 293, 236, 294,165, 286,201,175 
»288,1,96, 24,149, 28, 191, 293,133, 
283,165, 294,195,3918 
DATA 9,133, 204, 269,192,9,727 
A=6:FOR B=1 TO 5 

GRAPHICS @:POSITION 2,4 

FOR C=1 TO 1@:? A*¥14:A=A+1:NEXT 

™ 

? "“CONT":POSITION 2,9:POKE 9842, 

13: STOP 

POKE 842,12 

NEXT B 

? “BASIC RAM IS LOADED. DELETE 

REMAINING LINES AND ENTER LIST 

ING 2." 
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Program 5-5. Ski! 


1964 
igi 


DIM SEREENS{1) ,.PMS 61) 

DIM LEFT#(28) ,CENTER#$ (28) ,RIGHTS 
(26) ,CURRS (28), CRASH$ (28) , ERASES 
(29), DIR CS), SCR (4) ,DLIST#<¢1) 

DIM T#(28), TOPLINE$(2@):GOTO 124 
REM LINE 168 MUST BE TYP 
EDIN FIRST! !: 


HI=INT (A/256) :LO=A-HI*2546: RETURN 


POKE 64,1:FOR W=1i TO 14:POKE S32 
79,8: POKE 533279,8:NEXT W:FOKE 46 
,.@:RETURN 

GOSUB 79S@:REM Initialization rou 
tines 

REM PLAYER ROUTINE 

POKE 359,62:POQKE 54279, FPMBASE 
POKE 533277,3:POKE 794,2k146+& 
POQ=1824: YP=18@: XP=128 

PM (PQ) =CHR#(@):PM#(PO0+254) =CHRS 
(8) :PM$ (PO+1)=PM$ (PO) 
SCR(@)=@:SCR(1)=18:SCR(2)=4:S5CR¢ 
3)=2:SCR(4)=1 
ERASE#=CHRS (4) :ERASES (29) =CHR# (8 
): ERASE (2) =ERASE# 

LEFT#=ERASE#: CENTER#=ERASES: RIGH 
TH&=ERASES: CRASH#=ERASES 

FOR I=9 TO 15 
LEFT#(1I+2,1+2)=CHRS (PEEK (CHSET+2 
GB+I)) 

CENTERS (1+2,1+2) =CHR# (PEEK (CHSET 
+2?4+I1)) 

RIGHT# (1+2,1+2) =CHRS (PEEK (CHSET+ 
1i@4+I)) 

CRASHS$ (I1+2,1+2) =CHR (PEEK (CHSET+ 
P4G+I)) 

NEXT I 
DIR(G)=@:DIR(1)=20@:DIR(2)=19:DIR 
(3)=21:DIR(4)=1:FOR I=8 TO 3:DIR 
(I+5)=-DIRCI):NEXT I:DIR(S)=-1 
CURRS=CENTERS 
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POKE 1634,XF:POKE 243, 2:SCR=G 

PMS (PO+YP, PO+YP+29) =CURRS 
SCR=SCR+SCR(PEEK(@)):POKE 77,6 

POSITION 2,9:7 #6;SCR;" ";:POSIT 
ION 15,@:1F PEEK(@)<>@ THEN ? #6 
3; (5S-PEEK (G)) #199 

IF PEEK(1)<3 THEN POKE 6,%:GOTO 
74a 

ST=STICK(@) 

LEFT= NOT PTRIG(1):RIGHT= NOT PT 
RIG(@):LR=LEFT+2*RIGHT 

CURRS=CENTER#: XP=PEEK (1634) 

IF LEFT THEN CURRS=LEFT#:IF LR<> 

OLR THEN SV=2:TI=5 

IF RIGHT THEN CURR#=RIGHT$:IF LR 

<>0LR THEN SV=4:TI=5 

IF TI>O THEN TI=TI-1:SOUND &,SV, 

@,TI 

IF LR=@ THEN SOUND 6,4,8,%:TI=@ 

OLR=L 

UP=(ST=14 OR ST=18 OR ST=5): DOWN 

=(ST=5 OR ST=9 OR ST=13) 
YP=YP-2*UP+2*DOWN: IF YP>28@G THEN 
YP=299 

IF YP<4@ THEN YP=48 

POKE @,1+(YP>138)+¢(YP3160)+¢(YP31 
85) 

IF PEEK(PSPF)=@ THEN 396 
WHICH=INT (LOG (PEEK (P@PF))/LOG(2) 
+@.1):TEMP=PEEK (%):POKE @,@ 

PM$ (PO+YP, PO+YP+2@) =ERASES 

POKE HITCLR,1:I1F WHICH<¢>2 THEN 6 
26 

REM POINTS 

PTR=ASC (DLIST#(8))+256*ASC (DLIST 
$(9)) 

LINE=INT((YP—-39)/8) +1 
COL=INT((XP-49)/8) +1 
LOC=PTR+LINEX29+COL:SOUND @,9,9, 
a) 

FOR I= TO 8:P=PEEK(LOC+DIR(I)) 
IF P£128 OR P2192 THEN 599 
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POKE LOC+DIR(1I),0 

SCR=SCR+ (P=139) *59+ (P=134) *1GGx ( 
5-TEMP):I=11:NEXT I: GOTO 466 
NEXT I:GOTO 614 

FOR W=15 TO @ STEP -1:SOUND @,29 
~18,W:NEXT WwW 

POKE @,TEMP:POKE HITCLR,1:G0TO 3 
Bo 

REM 

SOUND 9,9,6,2 

PM (PO+YP,PO+YP+29) =CRASHS 

FOR W=19@ TO 159 STEP 2:SOUND @, 
W.12,1@:NEXT W 

PM& (PO+YP, PO+YP+2G) =ERASES 
YP=286 

PM (PO+YP, PO+YP+29) =CURRS 

POKE 0,1:SOUND %,9,9,9 

XP=INT (72+9@*RND(G)):POKE 53248, 
XP:POKE 16436, XP 

IF PEEK (P@PF)<>@ THEN POKE HITCL 
R,1:GOTO 799 

POKE HITCLR,9:SCR=SCR-59:IF SCR< 
@ THEN SCR=9 


GOTO 396 
IF SCR?>HSCR THEN HSCR=SCR 
POSITION 8,@:7 #6;”" HIGH “Ss HSER 


SOUND @,4,8,@ 

SCREENS (326,3236)="press({, } GRRETa" 
IF STRIG(@) THEN 774 

GOTO 136 

REM 

GRAPHICS 17:HILO=12@:POKE 52248, 
@:POKE @,@ 

SETCOLOR 4,8,12:SETCOLOR 1,12,8: 
SETCOLOR 2,9,6:SETCOLOR @,15,4 
P@PF=53252:HITCLR=53278:POKE HIT 
CLR,@ 

SCRBASE=PEEK (196)-16:REM 4K BOUN 
DARY 

PMBASE=SCRBASE-8:REM 2K BOUNDARY 
, DOUBLE-LINE RES 
CHBASE=PMBASE:REM FILL UP OFFSET 
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WITH CHARACTERS 
VNTD=PEEK (132) +2546*PEEK (133) 
A=USR (VNTD+96, ADR (SCREENS) , 4697, 
4697, SCRBASE*254) 
A=USR(VNTD+98, ADR (PM#) , 2049, 2849 
~PMBASE*254) 

A=USR(VNTD+99, ADR(DLIST#) ,49, 44, 
VNTD+134) 

CHSET=CHBASE* 254 
A=USR(VNTD+23, CHSET, VNTD+174, 126 
) : A=USR (VNTD+23, CHSET+128,57472, 
344) :A=USR(VNTD+23, CHSET+288, VNT 
D+294, 48) 

A=VNTD+377:GOSUB 128:POKE VNTD+3 
68,HI:POKE VNTD+378,L0 

A=USR (VNTD+23, 1649, VNTD+494, 183) 
Z=USR(VNTD+483):REM DISABLE VBLA 
NK 

POKE 754, CHBASE:RESTORE 996 
A=ADR(DLIST#):GOSUB HILO:POKE 56 
1,HI:POKE 568,L0 

DLIST# (32) =CHR# (PEEK (569)):DLIS 

T# (33) =CHR& (PEEK (561)) 

SCREENS (1) =CHR#(@) : SCREENS (4995 

) =CHR# (G) : SCREENS (2) =SCREENS 

TOPLINE#=SCREENS 

A=ADR(TOPLINE#):GOSUB HILO 

DLIST#(5,5) =CHR# (LO) = DLIST#(6,6 

) =CHR# (HI) 

POKE 88,LO0O:POKE 89,HI 

POSITION 8,4:? #6; "Sitaaq"; 

SCREEN# (121,139) =" (ERESEEX , } Cia 

frit, +htec , > Ey" 

SCREENS (163,178) =" FIR BD eres 

(A Dae" : SCREENS (185,195) =" ES" 

{, 3 feelers" 


SCREEN (492,419)="Bt2 MAC? we 
(2 BPAC2 ME? wh" 
A=USR(CVNTD+597, ADR (SCREENS) +4898 
) 

A=SCRBASEX254 
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A=A-29% (STICK (G) =14) +2G* (STICK ( 
@)=13) 

IF A>SCRBASE*254+3488 THEN A=A- 
29 

IF A<SCRBASE*256 THEN A=A+24 
GOSUB HILO: T#=CHR$(LO):T$(2)=CH 
R$ (HI) :DLIST#(8,9)=TS 

IF STRIG(#)=1 THEN 1429 
A=SCRBASE*254+3489:GOSUB HILO 
T$=CHR# (LO) :T%(2)=CHR#(HI):DLIS 
T$(8,9)=TS 

GOSUB 125:IF STRIG(@) THEN 1481 
A=USR (VNTD+342, ADR(DLIST#(8)),1 
76) 

SCREENS (121,195) =SCREEN$(12@) 
RETURN 
VNTD=PEEK (132) +256*PEEK (133) 
POKE VNTD+342+26,78 

POKE VNTD+342+28, 47 

POKE VNTD+342+39,85 

POKE VNTD+342+43,81 

POKE VNTD+342+51,73 

A=USR (VNTD+23, 24999, VNTD+342, 36 
5) 

A=USR (VNTD+23, 299994+52+368, 29996 
+52, 365) 

A=USR(VNTD+23, 29999+36+9, 2999G+ 
34,498) 

RESTORE 2994 

FOR A=@ TO 8:READ B:POKE 29@36+ 
A,B:NEXT A 

DATA 173,4, 298, 249,4,169,9,133, 
g 

FOR A=@ TO 29:READ B:POKE 29999 
+61+A,B:NEXT A 

DATA 198, 293, 298, 26,169, 2,133,2 
BS 

DATA 173,124, 2, 28,3, 296,199,6 
DATA 173,125, 2, 298, 3, 238,198,464 
DATA 173,198,6,141,9, 268 

FOR A= TO 193:? A,PEEK(VNTD+36 
+A), PEEK (29GGG+A):NEXT A 
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Thunderbird 


Dave Sanders 
Translated for the Atari by Charles Brannon 


“Thunderbird” offers a challenge for the experienced game player as 
well as the novice. 


“Thunderbird” will demand your undivided attention and 
16K of memory. The object of Thunderbird is to score as high 
as possible. Using a joystick you move the bird left and right, 
using it to bounce a ball into a wall of bricks. The object of 
the game is to clear out all the bricks, without letting the ball 
escape past you. A 1,000 point bonus is awarded when you 
break out the bottom of the wall (a “breakthrough”); and if 
you're really good, you get 10,000 points for clearing out all 
the bricks (no mean feat ). 


Shades of Zeus 


The Thunderbird can unleash the most awesome power of 
nature — lightning — at the touch of a button (the fire but- 
ton). Thunderbird will “beam down” several luminous “tiles” 
that serve to deflect the ball downward when hit. You can lay 
down tiles like a cap over a hole the ball has created, to force 
it to widen the hole. Every time the ball hits a tile, it swoops 
downward, but 25 points are subtracted from your score. That 
should discourage overuse of this miraculous feature. 


Vertical Blank and IRG 4 


Here’s a bit of information about the programming. The play- 
ing field is a mixed-mode display consisting of two rows of 
GRAPHICS 1 text and 21 rows of a multicolored character 
mode, IRG 4. This lets us have multicolored bricks. 

Player/missile graphics are used to represent the bird, 
which can be any of three sizes, depending on the skill level. 
The bird is moved left and right by a small machine language 
routine that is executed every 1/60 second during the TV’s 
vertical blank (when the electron beam is traveling from the 
lower right-hand corner to the upper left-hand corner of the 
screen). 
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Unleashing a lightning bolt in “Thunderbird.” 


IRG mode 4, the multicolor mode, is quite interesting. A 
single character can be any of three colors. To design these 
colored characters, divide the character horizontally into four 
two-bit zones. Each two-bit block controls one pixel of color 
within the character (a multicolor character’s resolution is 
4x8). No color would be 00, color one is 01, two 10, and three 
11 (simple two-bit binary). For example, one of the bricks con- 
sists of several colored bands: 


1110 
2220 
3330 
1110 
2220 
3330 
1110 
0000 


The numbers correspond to a “COLOR” statement. One side 
and the bottom row are left blank, so the blocks won’t touch. 
The pattern, when expanded into binary, would look like: 
01010100 
10101000 
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11111100 
01010100 
10101000 
11111100 
01010100 
00000000 


Such a “custom character” would look strange on a nor- 
mal screen (although you would see some semblance of 
multicolors, due to artifacting). But when displayed on either 
an IRG 4 or IRG 5 mode screen, each character is like a tiny 
4x8 block of GRAPHICS 7 pixels. Also, any character printed 
in inverse (with the Atari logo key) will look different. The 
COLOR 3 pixels in such a character will be displayed as 
COLOR 4 (normally available only in GRAPHICS 1 or 2). 

To create an IRG 4 screen, you must replace the bytes for 
GRAPHICS 0 by modifying the display list. Luckily, the 
resolution of IRG 4 is identical to GRAPHICS 0, 40x24. 


DL =PEEK(560) +256*PEEK(561) +4 
POKE DL14 +64 
FOR I=2 TO 24:POKE DL +I,4:NEXT I 


See lines 160-180 of Thunderbird. You can also try out 
IRG 5, which displays these characters in double height 
(40x12). 


Program 5-6. Thunderbird 


196 
116 
126 


REM 

REM 

GRAPHICS @: BASE=(PEEEF (1946)-16) 25 
6:GOSUB 156@:REM remove old playe 
rs from screen 

DIM A#(4@), BALL#(4):FOKE 82,4: BAL 
L&="*BiC I}; (83 ":BALLS=4 
CHSET=BASE:IF FPEEK(CCHSET+9)<«< +252 
THEN GOSUB 1248:REM If not initia 
lized 

GRAPHICS @:FOKE 752,1:FOKE 559,4: 
REM Turn of f cursor, screen 
DLIST=PEEK (364) +2564 FEEKR (561)+4:R 
EM location of display list 

FOR T=3 TO 24:FPOKE DLIST+I1,4:NEXT 
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I:REM Change mede zero lines to 
IRG 4 (mulicolor character) 
FOKE DLIST-1,4+464:FPOKE DLIST+2, 6: 
REM top two lines GRAFHICS 1 
FOKE 754,CHSET/2546: REM turn on ch 
aracter set 
SETGULGR 0,85 L2sSEITCOLGR de35 GRE 
M white and red 
RESTORE 24@:REM draw brick area 
FOSITION @6,@:7 BALL#(1, BALLS) :REM 
display # of balls (birds) left 
REM Pattern of wall: 
DATA 1,1,2,3,14,129,13@,131 
SCR=FPEEK (88}3+256*FEEKR (89) :REM loc 
ate screen memory 
REM put bricks on screen 
FOR I=SCRt+528 TO SCR+88@ STEP 48: 
READ A:FOR J=1I+1 TO 1+38:FOKE J,A 
SNEXT SSNEXAT £ 
FOSITION 5,4: 7 #464; "mila" 
P#=BASE+1924:FADR=F8+48:REM playe 
r zero. 
POKE 744,28+1746* (DIFF=1)+8@k (DIFF 
=27):REM Gold, green, or violet 
POKE 54279, BASE/2546:REM single-li 
ne res. 
POKE 33277, 3:POK Jol, o-2e (DIFF 
=1)-3x (DIFF=2):REM Start F/M DMA, 
select width according to diffic 
ulty 
RESTORE 378 
FOR I=@ TO 21:POKE PADR+I,@:NEXT 
I:REM clear out player 
FOR I= TO 7xX(3-DIFF) STEFF 3-DIFF 
=READ A:FOR J=@ TO 3-DIFF:FOKE FPA 
DR+I+J3,A:NEXT J:NEXT I 
REM bird pattern 
DATA 6,24,8,1897,28,8,9,9 
IF PEEK (547)<36 THEN A=USR(1536): 
REM turn on VBLANK if necessary 
POKE 359,62:GOSUB 754:REM turn on 
screen (single-line res. P/M), w 
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ait for START 

DY=1:DX=@.5:I1IF RND(1)3+4@.5 THEN DX 
=-@.5:REM Set up ball direction 
BX=INT (4@*RND(@))sBY=INT(7*XRND(@G) 

+3) :REM select random starting po 
sition 

REM 

IF STRIG($)=8 THEN GOSUB 8##%:REM 

allow "thunder" 

IF STICK(@)<215 THEN FPOKE 77,4 

TX=BX+DX:TY=BY+DY:REM update ball 
IF TY<i THEN GOSUB 486:GOTO 436:R 
EM check for miss 

IF TY?2@ THEN DY=-DY:I1F TX? AND 
TX<£39 THEN GOSUB 926:GOTO 439:REM 
check for breakthrough 

IF TX<@ THEN TX=@:DxX=-DX 

IF TX?39 THEN TX=239:DX=-DX 
TPOS=SCR+TX+4@kTY:REM check for o 
bstacles 

IF FEEE(CTFOS)=@8 THEN FOKE TPOS,S 
PFOKE SCR+EBX+4@*BY, 8: BX=TX:BY=TY: 
OTO 4236 

REM Rebound tiles (lasered down) 
IF FEER(TFOS)=4 THEN GOSUB 898:S5C 
ORE=SCORE-24:DY=ABS(DY):GOTO 348 
DY=-ABS(DY):I1IF RND(#) 24.5 THEN DX 
=-DX 

FOR W=14 TO @® STEF —-2:SOUND @,WkS 
»14,W:NEXT W 

SCORE=SCORE+ (BY-11)%*5: BLOCKS=BLOC 

ES+1:REM score according to row 

POKE TPOS,#@:FOSITION 29-LEN(STR# ¢( 

SCORE) ) 72,827 “ “sSCOREs* ™s 

IF BLOCKS=384 THEN 1488:REM BREAK 
—-OUT! 

IF SCORE«<@ THEN 728 

GOTO 59e 

REM Hit bird? 

IF PEEK (S53252) THEN DY=-DY:Z=1:60 

TO 4634 

GOTO 646% 


G 
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FOR W=14 TO ® STEP -—-2:SOUND @,W+t+i1 
9,18,W:NEXT W 

PORE SCR+EX+4@xXBY,@: BX=BX+DX:BY=B 
Y+DY 

PORE 33278, 255: RETURN 

REM Ball out of bounds (past bird 
) 

POKE SCR+BX+4@kBY,9¢ 

FOR W=199 TO @ STEF -—-S:SQUND @,W, 
12,8:NEXT W:FOR W=W=8 TO 148 STEP 
S32=SOUND @,W,12,8:NEXT W:SOUND @, 

4,49,8 

PORE 33278,255 

BALLS=BALLS-1:FOSITION BALLS, &@:7 

3 

IF BALLS?4 THEN 466 

REM 

POSITION 3,4:7 " Gime OfeE " 
GOSUB 7354:RUN 

IF PEEK (S53279)=6 THEN POSITION 26 
5827 "{5 SPACES+":RETURN 

IF PEEK (28)32@8 THEN FOSITION 24,4 
32 “PRESS” 

IF PEEK (2@)>48 THEN POSITION 29,4 
:? “ERRETA" = PORE 29,4 

GOTO 754 

REM 

XPOS= (PEEK (1664)-48) /4+4-2% (DIFF= 
1)-3S* (DIFFH=2):sFLIF=8:REM equate p 
layer pos. to screen pos. 

FOR I=3 TO 12:WHERE=SCR+XPOS+4Gk1I 
P=PEEK (WHERE) sFPOKE WHERE, 6+FLIP:F 
LIP=1-FLIF:REM zig-zag line 

SOUND @8,1%*18,8,15-I:FOQKE 718, FEEF 
(S377@):REM scintillate color 
NEXT I 

FOR I=3 TO 12:FOKE SCR+XPOS+4041, 
@:NEXT I:REM erase lightning 
WHERE=SCR+12%x*48+xXPOS: SOUND @,8,94, 
@:POKE WHERE-1,4:FOKE WHERE+1,4:F 
ORE WHERE,4:REM lay down tiles 
SETCOLOR 2,97,4:RETURN 


88S 
BIG 


8G 
919 
926 
93G 


946 


95GB 


9766 


97G 


786 

996 

1999 
1619 
1929 
193G 
1649 
1659 
1649 


1976 
1989 
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REM sound effect: 
FOR W=8 TO 246 STEP 38:SOUND @,W, 
12,15-W/17:SOUND 1,W+19,196,135-W/1 
7F=NEXT W:sSOUND 9§,4,8,@:SOUND 1,4, 
4, 
RETURN 
REM break-through 
IF DONE THEN RETURN 
FOR I=1 TO 16@:POEK 33274, PEEK (S33 
778):SOUND @,1,4,15-I/1@:NEXT I 
SOUND 46,46,0,@:POSITION 4,4:7 "(Yat 
Ethane :FOSITION 227,8:7 "1808 
point Gites" 
FOR I=i TO 1@:POSITION 22,0:?7 "10 
@@":FOR W=1 TO 2@:NEXT W:POSITION 
22,9:7 "{4 SPACES} ":FOR W=1 TO 2 
@:NEXT W:NEXT I 
POSITION 4,4@:?7 " Po 
SITION 227,08:7 "€1i7 SPACES>}" 
FOR I=1 TO 1@:FOR J=@ TO i5 STEP 
35SOUND @,59+196-1,8,15-J:NEXT J:8 
CORE=SCORE+14@ 
POSITION 29-LEN(STR# (SCORE) )/2,@: 
gf ™ SESCGORES"  s 
NEXT I:DONE= 1: RETURN 
REM 
GOSUB 119@:REM do "BLAST" 
FOR I=1 TO S3S@:FOR J=@ TO 3:POKE 
788+I,PEEK(S3778):NEXT Jt Z=ZkOZ< 
a)+1 
SOUND @,1+Z,18,1/1@:SOQUND 1, 1+2Z+ 
196,16, 1/18:NEXT I 
SOUND @,%,8,@:SOQUND 1,8,9,%:GOSU 
B 1569 
GRAPHICS 18:POSITION @©,6:? #64;5" 
{QO7IPF{LI(3 P+} point EREWMTETE}" 
FOR W=1i1 TO 188@:SOUND @,PEEK (5377 
@),8,15-W/1@8:POKE 712, (3-FLIPX2) 
K16+FLIP*#4+4:FLIP=1-FLIP:NEXT W 
SCORE=SCORE+199696:SOUND 9,9,9,9 
DIFF=DIFF+1i:I1IF DIFF?}2 THEN DIFF= 
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GOTO 158 

PORE 82,5:POSITION 5,19 

eo he es #{(6 SPACES} (at4 SPACES}. 

ws aan" 

? "tds SFACES}! #{5 SPACES} @ W 

-(3 SPACES}.¢3 SPACES} (g" 

? "'€S SFACES}! #£4 SPACES} M 

{3 SPACES}@M .{7 SPACES} 9" 

Tee fb Rd te #(4 SPACES}Mi{3 SPACES? @ 
»22 t4 SPACES}? Q" 

? "!¢S SPACES}?! #({4 SPACES} Gog 

{S SPACES}.i(3 SPACES} 9" 

? "ILS SPACES)! #£4 SPACES? M 

{3 SPACES+;M .{3 SFACES}. 

{3 SPACES} 9" 

eo Pies H#HHH ECS SFACES?+@M ... 

{4 SPACES; H" 

POKE 82,4:RETURN 

END 

REM BPQGSEPER TLS sees 

POKE 88,@:POKE 89, BASE/256:?7 " 

{CLEAR}; ":GRAPHICS 2+16:REM CLEAR 

5S OUT F/M AND CHARACTER MEMORY 

POSITION 5,4: 7 #6; " GAS te oer ": 

POSITION 6,4:7 #46; "patience":POS 

ITION 53,8:7 #63; "READING ML" 

RESTORE 1269 

FOR IT=1536 TO i1611:READ A: SOUND 

@,A,198,8:POKE 712,A:POKE I,A:NEX 

T 2 

A=USR(1536):G0TO 1466 

DATA 164,173,34,2,141,74 

DATA 6,173,35,2,141,75 

DATA 6,169,4,162,4,1649 

DATA 23,372,972, 228,96, 24 

DATA 173,128,6,141,4, 298 

DATA 173,124,2, 298,46, 296 

DATA 128,6,286,128,6,173 

DATA 125,272, 298,46,238,128 

DATA 6,238,128,6,173,128 

DATA 6,291,1,1746,5,169 

DATA 249,141,128,4, 281,258 


13798 
1389 
1396 
1484 


1419 
1426 
1436 
1449 
1459 
1466 
14768 
1489 
1498 
isa 
1510 


1526 
1 3) 


un 
re 


1546 
1535 

1569 
1576 
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DATA 144,5,169,32,141,128 
DATA 6,76,73,6 


REM 
POSITION 3,8:7 #6; " iT ETS 
i" 


FOR 1=128 TO 51:FOKE CHSET+I,PE 
EK (57344+1):SOUND 9,1/2,12,8:PO0K 
E 712,1/2:NEXT I 

RESTORE 1462 

READ A:IF A=-1 THEN SOUND 6,8%,8, 
@:SOUND 1,4,9,@:RETURN 

FOR J=@ TO 7:READ B:SOUND @,B,1¢ 
»8:SOUND 1,58+19,1%,8:POKE 712,B: 
POKE CHSET+A*8+J,B:NEXT J 

GOTO 143% 

DATA 1,9,252,168, 84, 252,168, 252 
“4 

DATA 2,9,168,168, 252, 252, 168,168 
a 

3 

DATA 3,4, 216,128,184, 228,189,712 


g 

3 

DATA 4,4,%,9,219,159,9,9,o 

DATA 5,8,49,48,169,169,49,49,@ 
DATA 6,192,192, 48, 48, 12, i2,3.3 
DATA 7.3,3,12,12, 48, 48,192,192 
DATA 19,24,49, 24, 153,126, 255, 29, 
34 

DATA 14,9,125, 126,126,126, 126,12 
6,8 

DATA -1 


REM KILL P/M GRAFHICS 

FORE 33277,@:FOR I=@ TO 3:POKE 5 
3261+1,0:NEXT I 

RETURN 
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Shoot 


John H. Palevich 


“Shoot” is a machine language arcade-style game that must be 
initialized on a 16K or greater Atari with or without DOS, but will 
run on any Atari, even an Atari with 8K of RAM. 

This game must be entered using the “Machine Language Editor: 
MLX” program found in Appendix C. Please refer to Appendix C 
before typing in this program. 


Loading Shoot 


Once you have typed in and SAVEd “Shoot,” LOADing the 
program is simple. With the MLX you have created a boot 
tape or a boot disk. What is a boot tape or disk? It is the 
name of a tape or disk that has a machine language program 
on it, along with information to tell the Atari how to load it 
into memory and where to jump to begin execution. You can 
think of a boot tape as a do-it-yourself ROM pack, since you 
need not have BASIC (or any other cartridge) installed in your 
Atari at the time you boot up the system. 

If you have a boot disk, simply turn on your disk drive. 
When the busy light goes out, insert the boot disk of Shoot 
and turn on the Atari. A few seconds later the title screen 
will appear. 

If you have a boot tape, simply place it in the program 
recorder and rewind to the beginning. Press the Play button 
on the recorder. Open the lid and remove the BASIC car- 
tridge. Turn off all the peripherals (especially all 815s, 810s 
and 850s) except for the cassette recorder. Turn off the Atari, 
press down on the START button, and turn it back on. It 
should beep once, which is your signal to press the RETURN 
key and wait. The boot tape will load into the RAM of your 
Atari. Once there, the cassette will stop and the game will 
begin. 


Playing Shoot 


First you will see a copyright message which will last for 
about 8 to 12 seconds. Then the message will disappear and 
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You have to be accurate and fast to hit the moving targets in 
“Shoot.” 


three zeros will appear. The left (green) one is your score. 
The middle (red) one is your high score. The right (yellow) 
one is time remaining. Plug a joystick into controller jack 1 
(far left) and press the START button. 


Shazam! Eight rows of assorted sizes and colors of 
airplanes, helicopters, and saucers will start flying hither and 
yon across the screen. Push the joystick left and right to aim 
the gun, press the button to fire the missile, then use the 
joystick to guide the missile into one of the planes. If you 
miss, try again. If you hit the plane, it will explode and you 
will score some points: Helicopter — 5 points, Plane — 10 
points, Saucer — 25 points. Clearing a rack of planes within 
30 seconds gives you a bonus of 50 points. If you take more 
than 30 seconds to clear a rack of planes, the game will give 
you another full rack of planes immediately. For every 15 
points you score you get an additional second of play time. 
When the timer goes to zero, your game ends, the high score 
is adjusted, and the program waits for you to press on the 
console buttons: press START to restart the game. 


Well, that’s Shoot in a nutshell. Enjoy the game. 
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Typing in Shoot 


The Machine Language Editor (MLX) was written to help you 
type in long machine language programs without making 
mistakes. MLX will not allow you to enter in the DATA 
incorrectly. 

It may at first seem like a lot of extra typing, but in the 
long run it will save you a great deal of time. 

The MLX will ask you to enter in three numbers; the 
prompts should be answered this way: Starting Address? 
4096; Ending Address? 5240; Run/Init Address? 4118. Then 
you will be prompted to start entering DATA. Just enter the 
DATA for the correct line from the listing that follows. MLX 
will not let you enter an incorrect number. It will not even let 
you enter the correct DATA for a different line. 


Program 5-7. Shoot Using MLX (see 
Appendix C) 


4096: 000, 009, 000, 016, 008, 016, 049 
4102:024, 096, 169, 060,141, 002, 242 
4108: 211,169,022, 133,010,169, 214 
4114:016,133,011,096,076,078,172 
4120:018,112,112, 112,070, 000,192 
4126:024, 240,112, 240,112, 240, 230 
41322112, 240,112, 240,112, 240, 0468 
4138:112, 240,112, 240,112, 240,074 
4144:112, 240,112, 240,112,065,161 
4150:025, 016,040, 067,041,049, 036 
4156:057, 056, 049, 032, 074,032,104 
4162: 072, 032, 080, 065, 076, 049, 204 
4168: 086, 073, 067, 072,128,144,130 
4174:130,146,132, 148,134,150,150 
4180:136, 152, 200, 008, 024, 040, 132 
4186:056, 072, 088, 104,120,128,146 
4192:026, 026,000,001, 002,003,154 
4198:004, 005, 004, 007, 008, 124, 000 
4204:124,001,002, 003,002,001, 241 
4210:255, 254, 253, 254, 000,000,106 
4216:001,002, 003,004, 005,006,141 
4222:007, 008, 009, 010,011,000,171 
4228:001,000,001,000,001,000,135 
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4234:001,000,001,001,000,001,142 
4240: 255,000, 000,003, 006,012,164 
4246:028, 060, 126, 255, 000,192,043 
4252:096, 048, 056, 060,126, 255,029 
4258:000, 024, 024,024, 024,060,062 
4264:126, 255, 000, 000, 248,032,061 
4270: 242,158,144, 240,000,000,190 
4276:031,004,079,121,009,015,183 
4282:000, 000,001,013, 063,127,134 
4288: 024,000,000, 000,128,176,008 
4294: 252, 254,024, 000, 000, 024, 240 
4300:036, 126,129, 126,000,000,109 
4306:001, 005, 000, 008, 255, 005, 228 
4312:000, 000, 002, 010,001,024, 253 
4318:254,010,001,016,003,025,019 
4324:000, 032, 253,025, 000, 032,058 
4330:072, 138, 072, 166,176, 232,066 
4336:1989,076, 016,141,010, 212,116 
4342:141,026, 208, 166,176,173,112 
4348: 008, 208, 041,001, 240,019,001 
4354:169,000, 157,098, 016,157,087 
4360:109, 016,189, 120,016, 024, 226 
4366:101,177,133,177,141,030,005 
4372: 208, 232,134,176,189,098, 033 
4378:016,024,125,109,016,157, 217 
4384:098, 016,141,000, 208,189,172 
4390:087,016,141,018, 208,189,185 
4396:131,016,141, 008, 208, 104,140 
4402:170, 104, 064,165,177, 208,170 
4408: 008, 169,128,141, 003, 210, 203 
4414:076,144, 017,056, 233,001,077 
4420:133,177,169,138,141,003,061 
4426: 210,162,005, 189, 000, 024,152 
4432:024,105,001, 009, 016,157,136 
4438: 000,024, 201,026, 208, 009, 042 
4444:169,016, 157, 000, 024, 202, 148 
4450:076, 077, 017,165, 183, 208, 054 
4456:039,166,181, 232,134,181,013 
4462: 224,015, 208, 030, 162, 000, 237 
4468:134,181,162,005,189,014,033 
4474:024,024,105,001,009,144,173 
4480: 157,014,024, 201,154,144,054 
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4486:009,169,144,157,014,024,139 
4492: 202,076,120, 017, 166,182,135 
4498: 232,134,182, 224, 060, 208, 142 
4504:034, 162,000, 134,182,165, 061 
4510: 183, 208, 046, 162,005, 189, 183 
4516:014, 024, 056, 233,001,009, 245 
4522:144,157,014, 024, 201,159,101 
4528: 208,009,169, 153,157,014,118 
4534:024, 202,076, 163,017, 169, 065 
4540: 000, 162, 004, 029, 013,024, 146 
4546: 202, 208, 250, 041,015, 201, 087 
4552:000, 208, 004, 169,001,133, 203 
4558: 183,169,000, 133,077,173,173 
4564:120,002,074,074,170, 189,073 
4570:142,016,133,179, 202,138,004 
4576:010,010, 010,170,160, 000,072 
4582:189, 146,016, 153,096,026, 088 
4588: 200, 153,096, 026, 232, 200,119 
4594:192, 016, 208, 240,165,178, 217 
4600:024,101,179,133,178,141, 236 
4606: 004, 208, 165, 180, 240, 038, 065 
4612:170,169, 000, 157, 128,025,141 
4618: 202, 240,017, 165,177, 208, 251 
4624:018, 134,180,169, 255,157,161 
4630:128,025, 142, 000, 210,076,091 
4636:042,018, 134,180,076, 042,008 
4642:018, 162, 000, 142, 000, 210,054 
4648:134,180,165, 183, 208,022,164 
4654:173, 132, 002, 208, 017, 165, 231 
4660: 180, 208, 013, 169, 098, 133,085 
4666:180, 165,179,010, 010,024,114 
4672:105, 132,133,178, 169, 255, 012 
4678: 133,176,141, 030, 208, 076, 066 
4684:095, 228, 169, 168,141,001,110 
4690: 210,169, 128,141,003, 210,175 
4696: 169,000,141, 000, 210, 169, 009 
4702:048, 141,002, 210, 162,128,017 
4708: 169, 000, 157, 255, 025,157,095 
4714:127,025, 202, 208, 247, 169,060 
4720:000, 162, 008, 157,255, 207,133 
4726: 202, 208, 250, 169, 046,141,110 
4732:047, 002, 169,024,141, 007, 002 
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4738: 212,169, 003,141,029, 208,124 
4744:169,016,013,111,002,141,076 
4750:111,002,141,027, 208, 169,032 
4756:000, 133,180,169,001,133, 252 
4762:183,169,064,141,014, 212,169 
4768: 169,016, 141,049,002, 169,194 
4774:025,141,048, 002,169, 016,055 
4780:141,001,002, 169, 234,141,092 
4786: 000, 002, 162, 017, 160,053, 060 
47922169, 006, 032, 092, 228,169,112 
4798:192,141,014, 212, 169,198,092 
4804:141,196,002,169,054,141,131 
4810:197, 002, 169, 024,141,198,165 
4816:002,169,010,141,199, 002, 219 
4822: 162,020,189, 055, 016,032,176 
4828:014,020,009,192, 157, 255,099 
4834:023, 202, 208, 242,165,019, 061 
4840:024,105, 003,197,019, 208,020 
4846: 252, 162,020,169, 000,157, 230 
49852: 255, 023, 202, 208, 250,149,071 
4858:016,141,005,024, 169,080,173 
4864:141,012,024,169,144,141,119 
4870:019,024,169,001,133,183,023 
4876:169,008, 141,031, 208,173,230 
4882:031, 208, 201,001, 208,006,161 
4888: 032,042, 020,076,078, 018,034 
4894: 201, 004, 208, 239, 169, 000, 085 
4900: 162,006, 157, 013,024,157, 043 
4906: 255, 023, 202, 208, 247,169,122 
4912:145,141,017,024,169,146,178 
4918:141,018,024,169,144,141,179 
4924:019,024, 169,016,141,005,178 
4930:024, 169,000, 133,183,133,196 
4936:177,133,182,133,181,142,016 
4942:024,160,000, 032,197,019, 254 
4948: 200,192, 008, 208, 248, 162,078 
4954: 007,160, 208, 169, 003,141,010 
4960: 042,002, 032, 092, 228, 149, 149 
4966:192,141,014, 212,173,042,108 
4972: 002, 208, 003,076,077,019, 237 
4978: 160,008, 169, 000,025, 108,072 
4984:016, 136, 208, 250, 201,000, 143 
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4990: 208, 010,169, 050,024,101,176 
4996:177,133,177,076,077,019, 023 
5002: 165, 183, 240, 220, 165,019,106 
5008:024,105,002,197,019, 208, 187 
5014: 252, 162,000, 189, 007,024,016 
5020:041,031, 221,000,024, 240, 201 
5026: 005, 176, 008, 076, 176,019,110 
5032: 232, 224, 006, 208, 236, 076, 126 
5038: 008,019, 162,006, 189, 255, 045 
5044:023,041,031,009, 064,157, 249 
5050: 006, 024, 202, 208, 243,076,177 
5056: 008,019,000, 000,000, 142,105 
5062:194,019,140,195,019,173,170 
5068:010, 210,041,007, 201, 0046, 147 
5074:176, 247,010,010,170,189, 244 
5080: 210,016,153,109,016,189,141 
5086: 211,016,153,120,016,189,159 
5092: 212,016,153,131,016, 169,157 
5098: 000, 153,098, 016,189, 213,135 
5104:016,170,172,194,019,149, 212 
5110:008,141,196,019,189,170, 201 
5116:016, 153, 000, 026, 232, 200,111 
5122: 206,196,019, 208, 243, 152,002 
5128:170,172,195,019,096, 000, 1498 
5134:140,013,020, 168, 138,072,053 
5140: 152,042, 042, 042,042,041,125 
5146:003,170,152,041,159, 029, 068 
5152: 246, 254, 168,104,170,152,102 
5158:172, 013,020,096, 162, 032,071 
5164:169,012,157, 066,003, 032, 227 
5170: 086, 228, 169,020,157, 069,011 
5176:003, 169,117,157, 068, 003,061 
5182:169,003, 157, 066,003, 169,117 
5188: 008, 157,074, 003, 169, 128,095 
5194:157,075, 003, 032, 086, 228, 143 
5200: 169, 000, 157, 068, 003,169,134 
5206: 016, 157,069, 003, 169,120,108 
5212:157,072, 003, 169,004,157, 142 
5218:073, 003,169,011, 157, 066,065 
5224: 003, 032, 086, 228,169, 012,122 
5230: 157,066, 003, 032, 084, 228,170 
5236:096, 067,058, 155, 000, 224, 204 
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Writing Your 
Own Games: 


Where to Get 
More Information 
Tom R. Halfhill 


By now you've probably typed in, played, and admired some 
of the games in this book. In time, perhaps some of them 
will be counted among your favorites. If so, then COMPUTE!’s 
First Book of Atari Games has succeeded. Our main goal was 
simply to provide more than a dozen fun games for about a 
third of the cost of one commercial computer game. You can 
stop right here and have your money’s worth. 

But this book could be something more. Once you realize 
that these games were written not by professional program- 
mers, but rather by ordinary hobbyists who probably had 
never touched a computer in their lives until they bought 
one, it’s not so hard to picture yourself writing games, too. 

Unfortunately, too many people dismiss this idea, be- 
sieged by self-doubts. “I’ll never be able to program like that,” 
they complain. “I don’t know anything about computers. And 
math was my worst subject in school.” 

Almost always you will hear this kind of statement from 
adults. Meanwhile, grade school children and teenagers are 
developing into crack programmers. Two years ago most of 
them knew nothing about computers either, but they learned. 
And some of them are flunking math, too. It should be com- 
mon knowledge by now that mathematics and technical 
genius have very little to do with computer programming. 

Instead, good programmers tend to be people who are 
creative, have a willingness to learn new things in an ex- 
ploratory way, and can think logically. 

We're not saying that everyone can be a good computer 
programmer. But many more can than you might suspect. 
Don't be afraid to see if this includes you. 
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One reason people are reluctant to attempt game pro- 
gramming — admittedly one of the most difficult types of 
programming — is their fear of machine language. Virtually 
all commercial games these days are programmed in machine 
language because BASIC is just too slow. But the fact is, 
many good games have been written in BASIC. There are 
clever ways to get around machine language if you want. 

The games in this book are perfect examples. They cover 
a very wide range of styles and techniques. A few, such as 
“Blockade,” are written entirely in straightforward BASIC — 
easily within reach of the beginning-to-intermediate home 
programmer. Blockade has been in my personal program 
library since I first typed it in from COMPUTE! more than 
two years ago. It’s been played as many hours as some com- 
mercial games for which I paid $35. 

On the other hand, there are games such as “Chiseler” 
and “Shoot” which are written completely in machine 
language. They are the work of advanced programmers, and 
are as fast and as fun as any games on the commercial soft- 
ware market. 

Between these two extremes are games such as “Ski!,” 
“Thunderbird,” and “Closeout,” hybrids of BASIC and 
machine language. Closeout is a particularly good example, 
because the author was not a machine language programmer. 
He used a machine language routine published in COM- 
PUTE!, a routine easily used by BASIC programmers who 
know little or nothing about machine language. If you decide 
to try your hand at game programming, one of your first 
goals should be to acquire a “subroutine library” stocked with 
routines of this type. You'll also need to start collecting 
magazines and books with important information about your 
computer. 

A couple of years ago the information cupboard for Atari 
computers was very bare. The machines were new, the idea 
of home computers was new, and hardware prices were very 
high. This meant the Atari market was very small. At first it 
was difficult to find out even the simplest facts about the 
computers. Some of the Atari’s most powerful features — 
such as player/missile graphics and programmable characters 
— were not even mentioned in the standard manuals (and 
still aren't). Home programmers were wandering in the dark. 

Today, though, the market abounds with good software, 
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books, and magazines. If you really want to learn, almost all 
the information is out there, somewhere. Not all of it is ex- 
plained as clearly as it could be, but usually it’s decipherable. 
At least, for the most part, it’s available. 

But now aspiring programmers are faced with a new 
problem — with so much information available, it’s hard to 
choose. Which books are clearly written, and which are jusi 
plain confusing? Which material is suitable for beginners, or 
intermediates, or advanced programmers? Which books 
should be read first? Which of the additional manuals sold by 
Atari are really worth buying? 

We can't tackle all of these questions here, but we can 
recommend sources for further reading and experimenting if 
you want to start programming your own games. This list in- 
cludes material which covers a range of skills, from beginning 
to advanced. Naturally, some of these items are from COM- 
PUTE! Publications. But some are sold by our competitors, 
too. This shouldn’t be construed as an endorsement, but 
rather as a list of reliable sources, a starting point for your 
own explorations. 


Further Reading 

“Atari, Inc. Atari Personal Computer Operating System. Sunnyvale, 
CA: Atari, Inc., 1980. 

* . Atari Personal Computer System Hardware Manual. Sun- 
nyvale, CA: Atari, Inc., 1980. 

Carris, Bill. Inside Atari BASIC. Reston, VA: Reston Publishing 
Co., Inc., 1983. 

Chadwick, Ian. Mapping the Atari. Greensboro, NC: COM- 
PUTE! Books, 1983. 

*Chen, Amy and others. De Re Atari. Sunnyvale, CA: Atari, 
Inc., 1981. 


Editors of COMPUTE!. COMPUTE!'’s First Book of Atari. 
Greensboro, NC: COMPUTE! Books, 1981. 











* . COMPUTE!’s First Book of Atari Graphics. Greensboro, NC: 
COMPUTE! Books, 1982 
* . COMPUTE!’s Second Book of Atari. Greensboro, NC: 


COMPUTE! Books, 1982. 


Inman, Don and Kurt Inman. The Atari Assembler. Reston, VA: 
Reston Publishing Co., Inc., 1981. 
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*Leventhal, Lance A. 6502 Assembly Language Programming. 
Berkeley, CA: Osborne/McGraw-Hill, 1979. 


Mansfield, Richard. Machine Language for Beginners. Greensboro, 
NC: COMPUTE! Books, 1983. 


Moore, Herb, Judy Lower, and Bob Albrecht. Atari Sound and 
Graphics, A Self-teaching Guide. New York: John Wiley & Sons, Inc., 
1982. 


Poole, Lon, Martin McNiff, and Steven Cook. Your Atari Com- 
puter. Berkeley, CA: Osborne/McGraw-Hill, 1982. 


Sherer, Robin. Tricky Tutorial #1: Display Lists. Soquel, CA: 
Educational Software, Inc., 1981. 


* . Tricky Tutorial #2: Horizontal and Vertical Scrolling. Soquel, 
CA: Educational Software, Inc., 1981. 


Sherer, Robin Alan, Bill Bryner. Tricky Tutorial #5: Player Missile 
Graphics. Soquel, CA: Educational Software, Inc., 1982. 


*Wilkinson, Bill. The Atari BASIC Sourcebook. Greensboro, NC: 
COMPUTE! Books, 1983. 


*Zaks, Rodnay. Programming the 6502. Berkeley, CA: Sybex, 
Inc., 1980. 





* For the more advanced readers 
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A Beginner’s 
Guide to Typing 
in Programs 


What Is a Program? 


A computer cannot perform any task by itself. Like a car 
without gas, a computer has potential, but without a program, 
it isn’t going anywhere. Most of the programs published in 
COMPUTE!'s First Book of Atari Games are written in a com- 
puter language called BASIC. Atari 8K BASIC is easy to learn. 


BASIC Programs 


Computers can be picky. Unlike the English language, which 
is full of ambiguities, BASIC usually has only one “right way” 
of stating something. Every letter, character, or number is 
significant. A common mistake is substituting a letter such as 
“O” for the numeral “0”, a lowercase “]” for the numeral “1”, 
or an uppercase “B” for the numeral “8”. Also, you must 
enter all punctuation such as colons and commas just as they 
appear in the book. Spacing can be important. To be safe, 
type in the listings exactly as they appear. 


Braces and Special Characters 


The exception to this typing rule is when you see the braces, 
such as “{DOWN }”. Anything within a set of braces is a 
special character or characters that cannot easily be listed on a 
printer. When you come across such a special statement, refer 
to the section of this book entitled “Listing Conventions.” 


About DATA Statements 


Some programs contain a section or sections of DATA 
statements. These lines provide information needed by the 
program. Some DATA statements contain actual programs 
(called machine language); others contain graphics codes. 
These lines are expecially sensitive to errors. 
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If a single number in any one DATA statement is 
mistyped, your machine could “lock up,’ or “crash.” The 
keyboard, break key, and RESET keys may all seem “dead,” 
and the screen may go blank. Don’t panic — no damage is 
done. To regain control, you have to turn off your computer, 
then turn it back on. This will erase whatever program was in 
memory, so always SAVE a copy of your program before you 
RUN it. If your computer crashes, you can LOAD the pro- 
gram and look for your mistake. 

Sometimes a mistyped DATA statement will cause an er- 
ror message when the program is RUN. The error message 
may refer to the program line that READs the data. This error 
is still in the DATA statements, though. 


Get to Know Your Machine 


You should familiarize yourself with your computer before at- 
tempting to type in a program. Learn the statements you use 
to store and retrieve programs from tape or disk. You'll want 
to save a copy of your program, so that you won't have to 
type it in every time you want to use it. Learn to use the 
machine's editing functions. How do you change a line if you 
made a mistake? You can always retype the line, but you at 
least need to know how to backspace. Do you know how to 
enter inverse video, lowercase, and control characters? It’s all 
explained in your computer’s manuals. 


A Quick Review 


1. Type in the program a line at a time, in order. Press 
RETURN at the end of each line. Use backspace or the back 
arrow to correct mistakes. 

2. Check the line you’ve typed against the line in the listing. 
You can check the entire program again if you get an error 
when you RUN the program. 

3. Make sure you've entered statements in braces as the ap- 
propriate control key (see “Listing Conventions” elsewhere in 
this book). 

4. Be sure to SAVE the program on tape or disk before RUN- 
ning the program. 
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Using the 
Machine 
Language 
Editor:MLX 


Charles Brannon 


Remember the last time you typed in a long machine language 
program? You typed in hundreds of DATA statements, 
numbers, and commas. Even then, you couldn't be sure if 
you'd typed it in right. So you went back, proofread, tried to 
run the program, crashed, went back and proofread again, cor- 
rected a few typing errors, ran again, crashed, rechecked your 
typing .... Frustrating, wasn’t it? 

Until now, though, that has been the best way to enter 
machine language into your machine. Unless you happen to 
own the Assembler Editor cartridge and are willing to wrangle 
with machine language on the assembly level, it is much 
easier to enter a BASIC program that reads the DATA 
statements and POKEs the numbers into memory. 

Some of these “BASIC loaders” will use a checksum to see 
if you’ve typed the numbers correctly. The simplest checksum 
is just the sum of all the numbers in the DATA statements. If 
you make an error, your checksum will not match up. Some 
programmers have made your task easier by creating 
checksums every ten lines, so you can zero in on your errors. 

There is a problem with BASIC loaders, however. 
Sometimes a program should reside in low memory, which is 
where BASIC stores its BASIC programs (including the 
loader). If the loader was RUN, it would destroy itself as it 
POKEd the machine language into memory. Sometimes a 
cassette user will create a program that resides in the same 
area of memory ($0700-$1EFF, approximately) as the Disk 
Operating System on disk-based machines. 


219 


Appendix C 


To get around the low memory problem, some BASIC 
loaders will directly create the loadable object file (binary file). 
You can then go to DOS and load the file with menu selec- 
tion L, or name the file AUTORUN.SYS and have it boot up 
with the DOS. But this excludes the cassette-based Atari 
users. 


A Thorny Problem 


Both of the high-quality machine language programs in this 
book have this problem. “Shoot” got around it by creating a 
“boot tape” that cassette users could load as conveniently as 
CLOAD. Unfortunately, many disk owners don’t have a tape 
drive. “Chiseler” was meant to be entered by assembling it 
with the Assembler Editor cartridge and run from that en- 
vironment. For the novice, this is too difficult, and since 
Chiseler resides in low memory, your average BASIC loader 
can't cope with it. 

MLX was designed to solve these problems. It is a great 
way to enter all those long machine language programs with 
a minimum of fuss. MLX lets you enter the numbers from a 
special list that looks similar to BASIC DATA statements. It 
checks your typing on a line-by-line basis. It won't let you 
enter illegal characters when you should be typing numbers. 
It won't let you enter numbers greater than 255. It will pre- 
vent you from entering the wrong numbers on the wrong 
line. In short, MLX will make proofreading obsolete! 


Boot Disks 


In addition, MLX will generate a ready-to-use boot tape or 
boot disk. It also has an option to create binary files for DOS 
users. A boot disk is like those commercial games you buy. 
You just insert the disk, remove any cartridges, and turn on 
your computer. The game will then automatically load. 


Boot Tapes 


Using a boot tape is almost as simple. Just insert it into your 
player, rewind, press PLAY. Hold down the START key while 
turning on your computer until you hear a beep (like the one 
you hear with CLOAD). Then press a key on the keyboard, 
and the program will automatically load and run. 
Incidentally, the binary file option is more useful for 
utilities than games. Binary files are loaded from the DOS 
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menu (selection L) or automatically if the file is named 
“AUTORUN.SYS”. If you can’t stand the thought of putting 
only one game on each disk (as with boot disks), you can 
place several binary file machine language games on one 
disk. This option is not workable with Shoot, since the program 
would overwrite DOS. 


Using MLX 


Type in and SAVE MLX (you'll want to use it in the future). 
When you're ready to key in the ML program, RUN it. The 
program will ask you for three addresses: the start address, 
the ending address, and the run address. These numbers 
should be: 4096, 5240, 4118, respectively, for Shoot, and 8192, 
11136, 10240 for Chiseler. If you get stuck, refer to the screen 
dumps below. 


Shoot 


Starting Aaddress?74696 
Ending Address7?5246 
Run/Init Address7dii16 


iape or Wisk: B 


Chiseler 


Starting Address76i192 
Ending Aaddress711136 
Run/’Inat Aaddress7i6246 


Hiape or Bisk:§ 


After you enter the addresses, you'll be asked to press 
either T for boot tape, or D for disk. If you press D, you'll be 
asked if you want to generate a boot disk (press D) or a 
binary file (press F). 

You'll then get the prompt: 

4096: (for Shoot) or 

8192: (for Chiseler) 


The prompt is the current line you are entering from the 
listing. Each line is six numbers plus a checksum. If you enter 
any of the six numbers wrong, or enter the checksum wrong, 
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the Atari will ring the buzzer and prompt you to re-enter the 
line. If you enter it correctly, a pleasant bell tone will sound 
and you can enter the next line. 


A Special Editor 


You are not using the normal Atari editor with MLX. For ex- 
ample, it will only accept numbers as input. If you need to 
make a correction, press the < DELETE/BACK S> key; the 
entire number is deleted. You can press it as many times as 
necessary back to the start of the line. If you enter three-digit 
numbers as listed, the computer will automatically print the 
comma and go on to accept the next number. If you enter 
less than three digits, you can press either the comma, 
SPACE bar, or RETURN key to advance to the next number. 
When you get to the checksum value, the Atari will emit a 
low drone to remind you to be careful. The checksum will 
automatically appear in inverse video; don’t worry, and don’t 
press the logo key to un-reverse it. It’s highlighted for 
emphasis. 

When testing MLX, I’ve found it to be extremely easy to 
enter long listings. With the audio cues provided, you don't 
even have to look at the screen if you're a touch-typist. And 
if you have the Atari CX85 Numerical Keypad, you're really 
on easy street! 


Done at Last! 


When you get through typing, assuming you type it all in 
one session, you can then save the completed and bug-free 
program to tape or disk. Follow the screen instructions. With 
a boot disk, the program will offer to format the disk. If you 
press Y (yes), be sure you have a blank disk in drive one — 
not your program disk! After the file is written, the program 
will end, and you can proceed to boot up your tape or disk 
(you may need to remove the BASIC cartridge). Now if you 
get any errors while writing, you probably have a bad tape or 
disk, or the disk was full (binary file), or you’ve made a typo 
somewhere in the MLxX itself. 


Command Control 


What if you don’t want to enter the whole program in one 
sitting? MLX lets you enter as much as you want, save the 
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whole schmeer, and then reload the boot tape, boot disk, or 
binary file when you want to continue. MLX recognizes these 
few commands: 


CTRL-S: Save 

CTRL-L: Load 

CTRL-N: New Address 

CTRL-D: Display 

Hold down CTRL while your press the appropriate key. 
You will jump out of the line you’ve been typing, so I recom- 
mend you do it at a new prompt. Use the Save command to 
save what you've been working on. MLX will write the boot 
tape or disk file as if you've finished, but the boot tape or 
disk won't run, of course, until you finish the typing. 
Remember what address you stop on. The next time you 
RUN MLX, answer all the prompts as you did before, then 
insert the disk or tape. When you get to the entry prompt 
(4096: or 8192:), press CTRL-L to reload the file into memory. 
You'll then use the New Address command to resume typing. 


New Address and Display 


After you press CTRL-N, enter the address where you 
previously stopped. The prompt will change, and you can 
then continue typing. Always enter a New Address that 
matches up with one of the line numbers in the special 
listing, or else the checksum won't match up. You can use the 
Display command to display a section of your typing. After 
you press CTRL-D, enter two addresses within the line 
number range of the listing. You can abort the listing by 
pressing any key. 


Sample Display 
4096: 
Display iFrom?4696 

To?4diis 
4996:6906,009,6660,016,666,616 
4102:624,6096,169,069,id41,082 
4108:2711,169,022,133,016,169 
4114:916,133,611,096,076,478 
4996:008,669,6606,916,006,616, DR 
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Incorrect 
4996:60606,60609,006,616,60608,616, 
4162: 

41062; 

4162: 

Hew Address7diid 


4114:016,133,6011,6096,8 


Tricky Stuff 


The special commands may seem a little confusing, but as 
you work with MLX, they will become valuable. For example, 
what if you forgot where you stopped typing? Use the 
Display command to scan memory from the beginning to the 
end of the program. When you see a bunch of zeros, stop the 
listing (press a key) and continue typing where the zeros 
start. Chiseler contains many sections of zeros. To avoid 
typing them, you can use the New Address command to skip 
over the blocks of zeros. Be careful, though; you don’t want 
to skip over anything you should type. 


Making Copies of Your Boot Tapes or Disks 


You can use the SAVE and LOAD commands to make copies 
of the completed game. Use the LOAD command to reLOAD 
the boot tape or disk, then insert a new tape or disk and use 
the Save command to create a new copy. 

Programmers will find MLX interesting. It contains many 
useful input/output subroutines such as high-speed save/recall 
of a huge string (BUFFER$), a sector input/output subroutine, 
and a sector control routine. Be careful, though; you could ac- 
cidentally wipe out a disk with the sector routines if you 
don’t use them correctly. 

I hope you will find MLX to be a true labor-saving pro- 
gram. Since it has been tested by entering actual programs, 
you can count on it as an aid for generating bug-free machine 
language. Be sure to save MLX; it will be used for future ap- 
plications in both COMPUTE! Magazine and COMPUTE! 
Books. 


Program C-l. Machine Language Editor: MLX 


199 GRAPHICS @:DL=PEEK (569) +256*PEEK 
(561)+4:POKE DL-1,71:POKE DL+2,6 
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119 POSITION 8,9@:? "MLX":POSITION 23 
,9:? "DEVE hae” :POKE 719,98:? 


126 ? "Starting Address";: INPUT BEG: 
Bae Ending Address"3;: INPUT FIN: 
? "Run/Init Address"5;: INPUT STAR 
TADR 


139 DIM A(4&), BUFFERS (FIN-BEG+t+127),7T% 
(26),F%(29) ,CIO&(7), SECTOR$ (128) 
»s DSKINVS$ (6) 

146 OPEN #1,4,9,"K:":? :? ,"—iape or 
Misks"; 

159 BUFFERS=CHRS (9) :BUFFER$(FIN-BEG+t 
39) =BUFFER#: BUFFERS (2) =BUFFERS:S 
ECTORS=BUFFERS 

168 ADDR=BEG:CIO$="hhh": CIO (4) =CHRS 
(179) sCIOS$(5)="LV":CIO$ (7) =CHRS ( 
228) 

179 GET #1,MEDIA:IF MEDIA< +84 AND ME 
DIA< >68 THEN 176 

186 ? CHRS(MEDIA):? :IF MEDIA< SASC(" 
T") THEN BUFFERS="":;GOTO 259 

199 BEG=BEG—-24: BUFFERS=CHRS$ (9) =: BUFFE 
R$ (2) =CHR#( (FIN-BEG+127)/128) 

299 H=INT(BEG/254) :L=BEG—-H&*256: BUFFE 
R#$(3)=CHR#(L): BUFFERS (4) =CHR# (H) 

218 PINIT=BEG+8: H=INT(PINIT/256) :L=P 
INIT-H*256: BUFFERS (5) =CHR# (L) =: BU 
FFER$ (6) =CHRS (H) 

229 FOR I=7 TO 24:READ A: BUFFERS(I)= 
CHR#$(A)=NEXT IsDATA 24,96,169, 6G 
5141,2,211,169,9,13353,19,169,9,13 
3,11,76,9,96 

239 H=INT(STARTADR/256) :L=STARTADR-H 
256: BUFFER#$ (15) =CHR&(L): BUFFERS 
(19) =CHRS (H) 

248 BUFFERS (23) =CHRS(L): BUFFERS (24)= 
CHR (H) 

259 IF MEDIA< S>ASC("D") THEN 369 

2684 7:7? "Boot Wisk or Binary fmle:"; 

279 GET #1,DTYPE:IF DTYPE< +68 AND DT 
YPE<>796 THEN 276 

289 7? CHR#(DTYPE): IF DITYPE=78 THEN 369 
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BEG=BEG-—-39: BUFFERS=CHR$ (9) : BUFFE 
R$ (2) =CHRS( (FIN-BEG+127)/128) 
H=INT (BEG/256) :L=BEG—-H£*£256: BUFFE 
R$ (3) =CHRS(L) s: BUFFERS (4) =CHR$ (H) 
PINIT=STARTADR: H=INT(PINIT/256) =: 
L=PINIT—-H%*256: BUFFERS (5) =CHR$(L) 
: BUFFERS (6) =CHRS (H) 

RESTORE 339:FOR I1=7 TO 39@:READ A 
: BUFFER#(1I)=CHRS(A) NEXT I 

DATA 169,9,141,231,2,133,14,1649, 
86,141,232,2,133,15,169,9,133,19, 
169,9,133,11,24,96 

H=INT (BEG/256) : L=BEG—H*256: BUFFE 
R$ (8) =CHRS(L) s BUFFERS (15) =CHRS(H 
) 

H=INT (STARTADR/ 256) :L=STARTADR—-H 
256: BUFFERS (22) =CHRS(L) s: BUFFERS 
(26) =CHRS (H) 

GRAPHICS 6:POKE 712,1@:POKE 7196, 
19:POKE 799,2 

? ADDR; ":"3;:FOR J=1i1 TO 6 

GOSUB 576:I1F N=-1 THEN J=J-1:G0T 
0 38g 

IF N=-19 THEN 726 

IF N=-12 THEN LET READ=1:GOTO 72 
@ 

TRAP 416:1F N=-14 THEN ? :? "New 
Address"s:INPUT ADDR:? :GOTO 37 
@ 

TRAP 32767:I1F N¢t>-4 THEN 489 
TRAP 436:7 :? "Display:From";:I1N 
PUT Fe? ,"To"3: INPUT TsTRAP 3276 
7 

IF F<BEG OR FSFIN OR T<KBEG OR T> 
FIN OR Te«F THEN ? CHR#(253)5 "At 
least ";BEG;", Not More Than "5F 
IN: GOTO 4398 

FOR f=F 1G TT STEP 162 2 v22 se a ois 
FOR K=8 TO 5S:N=PEEK (ADR (BUFFERS) 
+I+K-BEG) : TS$="9GG":TH#(4-LEN(STRS 
(N)))=STR& CN) 

IF PEEK(764)<255 THEN GET #1,A:P 
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OP :POP :? :GOTO 376 

476 7? T#3","3 2:NEXT K:? CHRS(126)3:NE 
XT It? :? :GOTO 3796 

486 IF N<@ THEN ? :GOTO 379 

4996 ACJI)J=N: NEXT J 

53998 CKSUM=ADDR-INT (ADDR/256) 256: FOR 

I=1 TO 46: CKSUM=CKSUM+A(I) =: CKSUM 

=CKSUM-256* (CKSUM?+255) =:NEXT I 

9180 RF=128:SOUND 9,299,12,8:GO0OSUB 57 
@: SOUND 9,9,9,9:RF=8:7 CHR#(126) 

o28 IF N<>CKSUM THEN ? :? “Incorrect 
"sCHRS(253)53:7 :GOTO 3796 

53@ FOR W=15 TO @6 STEP -—-1:SOUND 9,59 
5 198,W:NEXT W 

346 FOR I=1i TO 6:POKE ADR(BUFFERS) +A 
DDR-BEG+tI-1,A¢(I):NEXT I 

559 ADDR=ADDR+4: IF ADDR<C=FIN THEN 37 
G 

368 GOTO 719 

u79 N=9: Z=9 

589 GET #1,A:I1IF A=155 OR A=44 OR A=3 
2 THEN 676 

9998 IF A<32 THEN N=-A:RETURN 

699 IF At>126 THEN 6396 

619 GOSUB 69@:IF I=1 AND T=44 THEN N 
=-1i:? CHR$(126)3;:GOTO 4696 

626 GOTO 576 

639 IF A<48 OR AYS7 THEN S58@ 

646 7? CHR#(At+RF) 5 =N=NX19+A—-48 

659 IF N>255 THEN ? CHRS(253) 53; 2:A=126 
:GOTO 689 

666 Z=Z+1:I1IF Z<3 THEN 586 

678 IF Z=8 THEN ? CHR#(253)3;:GOTO 57 
G 

6898 7? ", "3 :RETURN 

696 POKE 752,1:FOR I=1 TO 3:7? CHR#(3 
@)5:GET #6,T:1IF T<>44 AND TK>58 
THEN ? CHR#(A)53:2:NEXT I 

766 POKE 752,84:? " "sCHRS(126)5:RETU 
RN 

719 GRAPHICS 6:POKE 716,26:POKE 712, 
26:POKE 789,2 
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726 IF MEDIA=ASC("T") THEN 896 

738 REM 

746 IF READ THEN ? :? "Load File":? 

758 IF DTYPE< >ASC("F") THEN 1948 

766 7 :? “Enter AUTORUN.SYS for auto 
matic use":? :? "Enter filename" 
: INPUT TS 

776 F#=TH: IF LEN(T#)>2 THEN IF TS#(1, 
2)<>"Ds" THEN FH="D:i"sF#(3)=TS 

789 TRAP 87@:CLOSE #2:0PEN #2, 8-4%RE 
AD,@,FS:? 2:7? "Working..." 

798 IF READ THEN FOR I=1 TO 6:GET #2 
sA:NEXT I:GOTO 829 

866 PUT #2, 255:PUT #2,255 

8198 H=INT(BEG/2546) :L=BEG—-H*256:PUT # 
2,L:PUT #2,H:H=INT(FIN/256) :L=FI 
N-Hk256:PUT #2,L:PUT #2,H 

826 GOSUB 976:IF PEEK(195)>1 THEN 87 
@ 

839 IF STARTADR=9 OR READ THEN 8596 

849 PUT #2, 224:PUT #2,2:PUT #2,225:P 
UT #2, 2:H=INTCSTARTADR/ 256) :L=ST 
ARTADR-H&256:PUT #2,L2:PUT #2,H 

8598 TRAP 32767:CLOSE #2:? "Finished. 
"sIF READ THEN ? :? :LET READ=G: 
GOTO 368 

868 END 

879 ? “Error ";PEEK(195)3" trying toa 
access":? F#:CLOSE #2:7 :GOTO 7 
466 

889 REM 

896 IF READ THEN ? :? "Read Tape” 

999 7? 3:7? :? “Insert, Rewind Tape.":? 

"Press PLAY "3;:IF NOT READ THE 

N ? "& RECORD" 

919 7? :? "Press when ready:"; 
926 TRAP 96@6:CLOSE #2:0PEN #2, 8-4*RE 
AD,128,"C3":? :? "Working..." 

936 GOSUB 976: I1F PEEK(195)>1 THEN 9746 
946 CLOSE #2:TRAP 32767:7 "Finished. 
"s? 2? sIF READ THEN LET READ=8: 

GOTO 3649 
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END 
? s? "Error "sPEEK¢(195)35" when r 
eading/writing boot tape":? :CLO 
SE #2:GOTO 896 
REM (epee ater ea ¥- Tee oe © =e a) 1-200 
| READ-O for write, READ-1 for re 
Er 
X=32:REM File#2, #29 
ICCOM=834: ICBADR=836: ICBLEN=848: 
ICSTAT=835 
H=INTCADR (BUFFERS) /256) :L=ADR(B 
UFFER$) -H*256:POKE ICBADR+X,L:P 
OKE ICBADR+X+1,H 
L=F IN-BEG+t+1:H=INT(L/256) :L=L-Hx 
296:POKE ICBLEN+X,L:POKE ICBLEN 
+X+1,H 
POKE ICCOM+X,11-4xREAD: A=USR (CAD 
R(CIO#),X) 
POKE 195,PEEKCICSTAT) =: RETURN 
REM 3 Sa i eae 
IF READ THEN 1196 
? 2? "Format Disk In Drive 1? ¢ 
Y/N) s"3 
GET #1,A:IF At>+78 AND A<>89 THE 
N 1976 
? CHR#(A):IF A=78 THEN 1199 
? 2? "“Formatting...":XIQ 254, #2 
,59,9,"D:2":? “Format Complete":? 


NR=INT ( (CF IN-BEG+127)/128):BUFFE 
R$ (FIN-BEG+2)=CHR#(@):IF READ T 
HEN ? "Reading...":GOTO 1129 

? "Writing..." 

FOR I=1i TO NR:S=I 

IF READ THEN GOSUB 1229: BUFFERS 
{1*128-127)=SECTOR#$:GOTO 11698 
SECTORS=BUFFERS (1 *128-127) 
GOSUB 1226 

IF PEEK (DSTATS)<>1 THEN 1299 
NEXT I 

IF NOT READ THEN END 

? 3s? sLET READ=8:GOTO 34698 
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? "Error on disk access.":? "Ma 
y need formatting.":GOTO 1846 
REM 

REM SE3Se it ee Eee a 
REM Drive ONE 

REM Pass buffer in SECTORS 

REM sector # in variable S& 

REM READ=1 for read, 

REM READ=8 for write 

BASE=3%256 

DUNI T=BASE+1: DCOMND=BASE+2:DSTA 
TS=BASE+3 

DBUFLO=BASE+4: DBUFHI=BASE+5 
DBYTLO=BASE+8@: DBYTHI=BASE+9 
DAUX1=BASE+19: DAUX2=BASE+11 

REM DIM DSKINV$(4) 

DSK INV$="hHLS": DSKINVS (4) =CHRS$ (2 
28) 

POKE DUNIT,1:A=ADR(SECTOR#) :H=I 
NT (A/2546) :L=A-256H 

POKE DBUFHI,H 

POKE DBUFLO,L 

POKE DCOMND, 87-S*READ 

POKE DAUX2, INT(S/256):POKE DAUX 
1,5-PEEK (DAUX2) 256 

A=USR CADR(DSKINV#) ) 

RETURN 


Listing 
Conventions 


In order to make special characters, inverse video, and cursor 
characters easy to type in, COMPUTE! Magazine’s Atari listing 
conventions are used in all the program listings in this book. 

Please refer to the following tables and explanations if you 
come across an unusual symbol in a program listing. 


Atari Conventions 


Characters in inverse video will appear like: 
Enter these characters with the Atari logo key, (A). 


When you see Type See 
{CLEAR} ESC SHIFT < 5 Clear Screen 
{UP} ESC CTRL - aa Cursor Up 
{DOWN} ESC CTRL = + Cursor Down 
{LEFT} ESC CTRL + < Cursor Left 
{RIGHT> ESC CTRL *& > Cursor Right 
{BACK S} ESC DELETE 4 Backspace 
{DELETE} ESC CTRL DELETE cl Delete Character 
C INSERT} ESC CTRL INSERT LP] Insert Character 
{DEL LINE? ESC SHIFT DELETE it Delete Line 
CINS LINE} ESC SHIFT INSERT go Insert Line 
{TAB} ESC TAB » TAB key 
{CLR TAB} ESC CTRL TAB Clear TAB 
{SET TAB} ESC SHIFT TAB Set TAB stop 
{BELL} ESC CTRL 2 Gj Ring Buzzer 
{ESC} Esc Esc & ESCape key 


Graphics characters, such as CTRL‘, the ball character @ will 
appear as the “normal” letter enclosed in braces, e.g., {T}. 

A series of identical control characters, such as 10 spaces, 
three cursor-lefts, or 20 CTRL-R’s, will appear as {10 SPACES }, 
{3 LEFT }, {20 R}, etc. If the character in braces is 
in inverse video, that character or characters should be 
entered with the Atari logo key. For example, {fi} means to 
enter a reverse-field heart with CTRL-comma, {5} means 
to enter five inverse-video CTRL-U’s. 
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ANTIC chip 3-6, 179-81 

Atari, special features of 11-12 

Atari BASIC 4, 6, 10-11, 53-54, 78-79, 215 
loaders 219-20 

Atari BASIC A+ 54 

boot disk 200, 220, 224 

boot tape 200, 220-21, 224 

color 7 

CPU (Central Processing Unit) 3-4 

DATA statements 215-16 
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games 
computer, categories of 13 
writing 13-16, 209-12 
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initialization 14-15 

IRG mode 191-93 
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232 


machine language 5, 10-11, 13, 56-58, 210 

Machine Language Editor (MLX) 202, 
219-24 

main loop 15 

memory locations 4-6 


OPTION button 11 

OS (Operating System) 5 

paddle 11 

PADDLE functions 11 

page flipping 26 

player/missile graphics 6, 58-59 
scrolling 179-80 

SELECT button 11 

sound 7-8, 11 

sprites (see player/missile graphics) 
START button 11, 22 

STICK functions 11 

subroutine 15-16 
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If you've enjoyed the articles in this book, you'll find the 
same style and quality in every monthly issue of COMPUTE! 
Magazine. Use this form to order your subscription to 
COMPUTE!. 
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First Book of Atari Games 


Fifteen games for the Atari computer, complete and ready to type in, 
so no programming knowledge is necessary. 


Here are ten of the best games from COMPUTE! Magazine, 
including the fast-action, all-machine-language “Shoot.” Several of 
these games have been updated and improved since their original 
appearance in the magazine. 

There are also five new never-before-published games, includ- 
ing the fast-action, arcade-style “Chiseler.” 

Since you can follow the complete BASIC listing, you can see for 
yourself how programmers create games. Also, several chapters are 
devoted to showing you just how to program your own games. 
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